home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-04-06 | 27.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 4d 4f 4f 4e 43 59 43 4c |.... . >|MOONCYCL|
|00000010| 45 53 0d 00 14 06 20 3a | 0d 00 1e 3d 20 f4 20 41 |ES.... :|...= . A|
|00000020| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 3a 20 |cknowled|gement: |
|00000030| 41 53 54 52 4f 4e 4f 4d | 59 20 57 49 54 48 20 59 |ASTRONOM|Y WITH Y|
|00000040| 4f 55 52 20 50 45 52 53 | 4f 4e 41 4c 20 43 4f 4d |OUR PERS|ONAL COM|
|00000050| 50 55 54 45 52 0d 00 28 | 2b 20 f4 20 20 20 20 20 |PUTER..(|+ . |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 65 74 | | Pet|
|00000070| 65 72 20 44 75 66 66 65 | 74 74 2d 53 6d 69 74 68 |er Duffe|tt-Smith|
|00000080| 0d 00 32 38 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..28 . | |
|00000090| 20 20 20 20 20 20 20 20 | 43 61 6d 62 72 69 64 67 | |Cambridg|
|000000a0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 50 72 65 |e Univer|sity Pre|
|000000b0| 73 73 20 20 31 39 38 35 | 0d 00 3c 06 20 3a 0d 00 |ss 1985|..<. :..|
|000000c0| 46 27 20 f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |F' . | |
|000000d0| 20 20 20 20 20 20 46 65 | 72 64 69 6e 61 6e 64 20 | Fe|rdinand |
|000000e0| 4f 65 69 6e 6b 0d 00 50 | 2b 20 f4 20 20 20 20 20 |Oeink..P|+ . |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 63 6f | | Aco|
|00000100| 72 6e 20 55 73 65 72 20 | 44 65 63 20 31 39 38 38 |rn User |Dec 1988|
|00000110| 0d 00 5a 31 20 f4 20 41 | 64 61 70 74 65 64 20 62 |..Z1 . A|dapted b|
|00000120| 79 3a 20 20 20 20 20 20 | 44 41 41 46 20 4a 41 46 |y: |DAAF JAF|
|00000130| 20 44 75 6c 77 69 63 68 | 20 4d 61 72 20 31 39 38 | Dulwich| Mar 198|
|00000140| 39 0d 00 64 06 20 3a 0d | 00 6e 1c 20 c8 99 22 4f |9..d. :.|.n. .."O|
|00000150| 53 5f 55 70 64 61 74 65 | 4d 45 4d 43 22 2c 36 34 |S_Update|MEMC",64|
|00000160| 2c 36 34 0d 00 78 0a 20 | db 3a eb 20 30 0d 00 82 |,64..x. |.:. 0...|
|00000170| 8c 20 f1 27 8a 35 29 3b | 22 54 68 69 73 20 72 6f |. .'.5);|"This ro|
|00000180| 75 74 69 6e 65 20 63 61 | 6c 63 75 6c 61 74 65 73 |utine ca|lculates|
|00000190| 20 61 6c 74 69 74 75 64 | 65 73 20 61 6e 64 20 63 | altitud|es and c|
|000001a0| 6f 6f 72 64 69 6e 61 74 | 65 73 20 66 6f 72 20 74 |oordinat|es for t|
|000001b0| 68 65 20 4d 4f 4f 4e 20 | 64 75 72 69 6e 67 20 20 |he MOON |during |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 32 38 20 64 61 79 | | 28 day|
|000001e0| 20 70 65 72 69 6f 64 73 | 20 75 70 20 74 6f 20 31 | periods| up to 1|
|000001f0| 30 20 79 65 61 72 73 2e | 22 0d 00 8c 06 20 3a 0d |0 years.|".... :.|
|00000200| 00 96 43 20 f2 61 73 73 | 65 6d 62 6c 65 3a f4 20 |..C .ass|emble:. |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000230| 20 20 20 20 20 41 52 4d | 20 63 6f 64 65 20 73 6f | ARM| code so|
|00000240| 72 74 0d 00 a0 1d 20 e8 | 8a 35 38 2c 32 29 3b 22 |rt.... .|.58,2);"|
|00000250| 50 72 69 6e 74 65 72 22 | 3b 54 61 62 6c 65 24 0d |Printer"|;Table$.|
|00000260| 00 aa 0f 20 f1 8a 35 2c | 34 29 3b 22 20 22 0d 00 |... ..5,|4);" "..|
|00000270| b4 24 20 de 20 46 4c 41 | 47 28 31 32 29 3a 20 f4 |.$ . FLA|G(12): .|
|00000280| 20 2c 50 4c 41 4e 28 38 | 2c 39 29 2c 4d 41 50 28 | ,PLAN(8|,9),MAP(|
|00000290| 38 29 0d 00 be 1d 20 dd | a4 44 45 47 28 57 29 3d |8).... .|.DEG(W)=|
|000002a0| 35 2e 37 32 39 35 37 37 | 39 35 31 45 31 2a 57 0d |5.729577|951E1*W.|
|000002b0| 00 c8 1e 20 dd a4 52 41 | 44 28 57 29 3d 31 2e 37 |... ..RA|D(W)=1.7|
|000002c0| 34 35 33 32 39 32 35 32 | 45 2d 32 2a 57 0d 00 d2 |45329252|E-2*W...|
|000002d0| 1c 20 dd a4 52 4f 55 28 | 57 2c 58 29 3d a8 28 57 |. ..ROU(|W,X)=.(W|
|000002e0| 2a 58 2b 30 2e 35 29 2f | 58 0d 00 dc 23 20 dd a4 |*X+0.5)/|X...# ..|
|000002f0| 41 53 4e 28 57 29 3d 99 | 28 57 2f 28 b6 28 31 2d |ASN(W)=.|(W/(.(1-|
|00000300| 57 2a 57 29 2b 31 45 2d | 32 30 29 29 0d 00 e6 21 |W*W)+1E-|20))...!|
|00000310| 20 dd a4 41 43 53 28 57 | 29 3d 31 2e 35 37 30 37 | ..ACS(W|)=1.5707|
|00000320| 39 36 33 32 37 2d a4 41 | 53 4e 28 57 29 0d 00 f0 |96327-.A|SN(W)...|
|00000330| 1a 20 dd a4 49 54 47 28 | 57 29 3d b4 28 57 29 2a |. ..ITG(|W)=.(W)*|
|00000340| a8 28 94 28 57 29 29 0d | 00 fa 2c 20 dd a4 4c 49 |.(.(W)).|.., ..LI|
|00000350| 46 28 57 29 3d a8 28 57 | 29 2d 28 46 4c 41 47 28 |F(W)=.(W|)-(FLAG(|
|00000360| 30 29 2d 31 29 2a a8 28 | 28 b4 28 57 29 2d 31 29 |0)-1)*.(|(.(W)-1)|
|00000370| 2f 32 29 0d 01 04 1a 20 | dd a4 53 43 4c 28 57 29 |/2).... |..SCL(W)|
|00000380| 3d 33 32 2d 57 2a 33 32 | 2f 31 30 32 34 0d 01 0e |=32-W*32|/1024...|
|00000390| 17 20 dd a4 54 49 4d 28 | 57 29 3d a8 28 30 2e 38 |. ..TIM(|W)=.(0.8|
|000003a0| 31 2a 57 29 0d 01 18 1d | 20 dd a4 55 4e 57 28 57 |1*W)....| ..UNW(W|
|000003b0| 2c 5a 29 3d 57 2d a4 4c | 49 46 28 57 2f 5a 29 2a |,Z)=W-.L|IF(W/Z)*|
|000003c0| 5a 0d 01 22 2d 20 dd a4 | 43 44 4e 28 57 2c 58 2c |Z.."- ..|CDN(W,X,|
|000003d0| 59 2c 5a 29 3d 28 28 28 | 57 2d 58 29 2f 28 59 2d |Y,Z)=(((|W-X)/(Y-|
|000003e0| 58 29 29 2a 28 5a 2d 32 | 35 29 29 2b 32 35 0d 01 |X))*(Z-2|5))+25..|
|000003f0| 2c 06 20 3a 0d 01 36 33 | 20 46 4c 41 47 28 29 3d |,. :..63| FLAG()=|
|00000400| 30 3a 46 4c 41 47 28 30 | 29 3d 31 3a 44 49 53 3d |0:FLAG(0|)=1:DIS=|
|00000410| 31 2e 34 35 39 33 45 2d | 32 3a 54 50 49 3d 32 2a |1.4593E-|2:TPI=2*|
|00000420| af 3a 74 61 62 3d 30 0d | 01 40 08 20 f1 3a f1 0d |.:tab=0.|.@. .:..|
|00000430| 01 4a 27 20 e8 22 4c 6f | 63 61 74 69 6f 6e 20 22 |.J' ."Lo|cation "|
|00000440| 3b 43 49 54 59 24 3a e7 | 20 43 49 54 59 24 3d 22 |;CITY$:.| CITY$="|
|00000450| 22 8c 8d 64 42 41 0d 01 | 54 3a 20 f3 4e 41 4d 45 |"..dBA..|T: .NAME|
|00000460| 24 2c 4c 31 2c 4c 32 2c | 4c 33 2c 4c 34 2c 4c 35 |$,L1,L2,|L3,L4,L5|
|00000470| 2c 4c 36 2c 4c 37 3a e7 | c0 4e 41 4d 45 24 2c 33 |,L6,L7:.|.NAME$,3|
|00000480| 29 3d c0 43 49 54 59 24 | 2c 33 29 8c 8d 44 72 41 |)=.CITY$|,3)..DrA|
|00000490| 0d 01 5e 2c 20 e7 4e 41 | 4d 45 24 3d 22 2a 22 20 |..^, .NA|ME$="*" |
|000004a0| 8c f1 22 4c 6f 63 61 74 | 69 6f 6e 20 6e 6f 74 20 |.."Locat|ion not |
|000004b0| 66 6f 75 6e 64 22 3a e5 | 8d 64 42 41 0d 01 68 1f |found":.|.dBA..h.|
|000004c0| 20 e7 c0 4e 41 4d 45 24 | 2c 33 29 3c 3e c0 43 49 | ..NAME$|,3)<>.CI|
|000004d0| 54 59 24 2c 33 29 8c 8d | 44 54 41 0d 01 72 12 20 |TY$,3)..|DTA..r. |
|000004e0| f1 8a 31 30 2c 37 29 3b | 4e 41 4d 45 24 0d 01 7c |..10,7);|NAME$..||
|000004f0| 06 20 f1 0d 01 86 2f 20 | 58 44 3d 4c 31 3a 58 4d |. ..../ |XD=L1:XM|
|00000500| 3d 4c 32 3a 58 53 3d 4c | 33 3a e7 4c 31 3e 2d 32 |=L2:XS=L|3:.L1>-2|
|00000510| 35 20 8c 20 4b 24 3d 22 | 2b 22 20 8b 20 4b 24 3d |5 . K$="|+" . K$=|
|00000520| 22 22 0d 01 90 1a 20 53 | 57 31 3d 2d 31 3a f2 4d |"".... S|W1=-1:.M|
|00000530| 69 6e 73 65 63 3a 4c 4f | 4e 47 3d 58 0d 01 9a 16 |insec:LO|NG=X....|
|00000540| 20 58 44 3d 4c 34 3a 58 | 4d 3d 4c 35 3a 58 53 3d | XD=L4:X|M=L5:XS=|
|00000550| 4c 36 0d 01 a4 13 20 53 | 57 31 3d 2d 31 3a f2 4d |L6.... S|W1=-1:.M|
|00000560| 69 6e 73 65 63 0d 01 ae | 10 20 50 48 49 3d a4 52 |insec...|. PHI=.R|
|00000570| 41 44 28 58 29 0d 01 b8 | 0a 20 e5 8d 64 74 41 0d |AD(X)...|. ..dtA.|
|00000580| 01 c2 38 20 e8 22 47 65 | 6f 67 2e 20 6c 6f 6e 67 |..8 ."Ge|og. long|
|00000590| 69 74 75 64 65 20 20 20 | 20 20 28 44 2c 4d 2c 53 |itude | (D,M,S|
|000005a0| 29 22 3b 58 44 2c 58 4d | 2c 58 53 3a 4e 41 4d 45 |)";XD,XM|,XS:NAME|
|000005b0| 24 3d c3 28 58 44 29 0d | 01 cc 2c 20 53 57 31 3d |$=.(XD).|.., SW1=|
|000005c0| 2d 31 3a f2 4d 69 6e 73 | 65 63 3a e7 58 44 3e 2d |-1:.Mins|ec:.XD>-|
|000005d0| 32 35 20 8c 20 4b 24 3d | 22 2b 22 20 8b 20 4b 24 |25 . K$=|"+" . K$|
|000005e0| 3d 22 22 0d 01 d6 1c 20 | 4c 4f 4e 47 3d 58 3a 4c |="".... |LONG=X:L|
|000005f0| 37 3d a4 49 54 47 28 4c | 4f 4e 47 2f 31 35 29 0d |7=.ITG(L|ONG/15).|
|00000600| 01 e0 42 20 e8 22 47 65 | 6f 67 72 61 70 68 69 63 |..B ."Ge|ographic|
|00000610| 20 6c 61 74 69 74 75 64 | 65 20 28 44 2c 4d 2c 53 | latitud|e (D,M,S|
|00000620| 29 22 3b 58 44 2c 58 4d | 2c 58 53 3a 4e 41 4d 45 |)";XD,XM|,XS:NAME|
|00000630| 24 3d 4e 41 4d 45 24 2b | 22 3a 22 2b c3 28 58 44 |$=NAME$+|":"+.(XD|
|00000640| 29 0d 01 ea 35 20 53 57 | 31 3d 2d 31 3a f2 4d 69 |)...5 SW|1=-1:.Mi|
|00000650| 6e 73 65 63 3a 50 48 49 | 3d a4 52 41 44 28 58 29 |nsec:PHI|=.RAD(X)|
|00000660| 3a 74 61 62 3d 31 3a f4 | 20 20 73 65 65 20 6c 69 |:tab=1:.| see li|
|00000670| 6e 65 20 37 31 30 0d 01 | f4 06 20 f7 0d 01 fe 2c |ne 710..|.. ....,|
|00000680| 20 e8 22 53 74 61 72 74 | 69 6e 67 20 64 61 74 65 | ."Start|ing date|
|00000690| 20 20 20 20 20 20 20 28 | 44 2c 4d 2c 59 29 22 3b | (|D,M,Y)";|
|000006a0| 44 59 2c 4d 4e 2c 59 52 | 0d 02 08 15 20 f2 4a 75 |DY,MN,YR|.... .Ju|
|000006b0| 6c 64 61 79 3a 44 4a 44 | 31 3d 44 4a 44 0d 02 12 |lday:DJD|1=DJD...|
|000006c0| 27 20 e8 22 48 6f 77 20 | 6d 61 6e 79 20 64 61 79 |' ."How |many day|
|000006d0| 73 22 3b 50 51 24 3a e7 | 50 51 24 3d 22 22 20 8c |s";PQ$:.|PQ$="" .|
|000006e0| 8d 44 58 42 0d 02 1c 1d | 20 50 51 3d bb 28 50 51 |.DXB....| PQ=.(PQ|
|000006f0| 24 29 3a e7 20 50 51 3c | 32 38 20 8c 50 51 3d 32 |$):. PQ<|28 .PQ=2|
|00000700| 38 0d 02 26 1d 20 50 51 | 3d 50 51 2d 50 51 20 83 |8..&. PQ|=PQ-PQ .|
|00000710| 32 38 3a f1 8a 31 34 2c | 31 30 29 3b 50 51 0d 02 |28:..14,|10);PQ..|
|00000720| 30 22 20 46 4c 41 47 28 | 32 29 3d 30 3a 44 4a 44 |0" FLAG(|2)=0:DJD|
|00000730| 3d 44 4a 44 2b 50 51 3a | 44 4a 44 32 3d 44 4a 44 |=DJD+PQ:|DJD2=DJD|
|00000740| 0d 02 3a 0c 20 f2 43 61 | 6c 64 61 79 0d 02 44 26 |..:. .Ca|lday..D&|
|00000750| 20 f1 22 45 6e 64 20 64 | 61 74 65 20 69 73 3a 20 | ."End d|ate is: |
|00000760| 22 3b 44 59 3b 22 20 22 | 3b 4d 4e 3b 22 20 22 3b |";DY;" "|;MN;" ";|
|00000770| 59 52 0d 02 4e 0a 20 e5 | 8d 74 54 42 0d 02 58 19 |YR..N. .|.tTB..X.|
|00000780| 20 e8 22 45 6e 64 20 64 | 61 74 65 22 3b 44 59 2c | ."End d|ate";DY,|
|00000790| 4d 4e 2c 59 52 0d 02 62 | 1f 20 46 4c 41 47 28 31 |MN,YR..b|. FLAG(1|
|000007a0| 29 3d 30 3a f2 4a 75 6c | 64 61 79 3a 44 4a 44 32 |)=0:.Jul|day:DJD2|
|000007b0| 3d 44 4a 44 0d 02 6c 20 | 20 50 51 3d 44 4a 44 32 |=DJD..l | PQ=DJD2|
|000007c0| 2d 44 4a 44 31 3a e7 20 | 50 51 3c 32 38 20 8c 50 |-DJD1:. |PQ<28 .P|
|000007d0| 51 3d 32 38 0d 02 76 39 | 20 50 51 3d 50 51 2d 50 |Q=28..v9| PQ=PQ-P|
|000007e0| 51 20 83 32 38 3a 44 4a | 44 32 3d 50 51 2b 44 4a |Q .28:DJ|D2=PQ+DJ|
|000007f0| 44 31 3a 46 4c 41 47 28 | 32 29 3d 30 3a 44 4a 44 |D1:FLAG(|2)=0:DJD|
|00000800| 3d 44 4a 44 32 3a f2 43 | 61 6c 64 61 79 0d 02 80 |=DJD2:.C|alday...|
|00000810| 2d 20 f1 8a 30 2c 31 31 | 29 3b 22 45 6e 64 20 64 |- ..0,11|);"End d|
|00000820| 61 74 65 20 69 73 3a 20 | 22 3b 44 59 3b 22 20 22 |ate is: |";DY;" "|
|00000830| 3b 4d 4e 3b 22 20 22 3b | 59 52 0d 02 8a 24 20 f1 |;MN;" ";|YR...$ .|
|00000840| 8a 30 29 3b 50 51 3b 22 | 20 64 61 79 73 20 20 20 |.0);PQ;"| days |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 0d 02 | | "..|
|00000860| 94 0d 20 44 4a 44 3d 44 | 4a 44 31 0d 02 9e 06 20 |.. DJD=D|JD1.... |
|00000870| 3a 0d 02 a8 0e 20 de 20 | 61 25 20 50 51 2a 38 0d |:.... . |a% PQ*8.|
|00000880| 02 b2 2d 20 de 20 53 50 | 28 50 51 29 2c 50 48 28 |..- . SP|(PQ),PH(|
|00000890| 50 51 29 2c 44 41 54 45 | 28 50 51 29 2c 41 5a 52 |PQ),DATE|(PQ),AZR|
|000008a0| 28 50 51 29 2c 41 5a 53 | 28 50 51 29 0d 02 bc 3a |(PQ),AZS|(PQ)...:|
|000008b0| 20 de 20 4c 41 4d 28 50 | 51 29 2c 42 45 54 28 50 | . LAM(P|Q),BET(P|
|000008c0| 51 29 2c 4c 41 4d 41 28 | 50 51 29 2c 42 45 54 41 |Q),LAMA(|PQ),BETA|
|000008d0| 28 50 51 29 2c 4c 41 4d | 42 28 50 51 29 2c 42 45 |(PQ),LAM|B(PQ),BE|
|000008e0| 54 42 28 50 51 29 0d 02 | c6 06 20 3a 0d 02 d0 1c |TB(PQ)..|.. :....|
|000008f0| 20 f1 8a 32 35 2c 31 31 | 2b 74 61 62 29 3b 22 54 | ..25,11|+tab);"T|
|00000900| 68 65 20 4d 4f 4f 4e 22 | 0d 02 da 2c 20 f1 22 54 |he MOON"|..., ."T|
|00000910| 69 6d 65 20 72 65 71 75 | 69 72 65 64 3a 20 22 3b |ime requ|ired: ";|
|00000920| a4 54 49 4d 28 50 51 29 | 3b 22 20 73 65 63 73 22 |.TIM(PQ)|;" secs"|
|00000930| 3a d1 3d 30 0d 02 e4 10 | 20 e3 20 44 51 3d 31 20 |:.=0....| . DQ=1 |
|00000940| b8 20 50 51 0d 02 ee 17 | 20 46 4c 41 47 28 29 3d |. PQ....| FLAG()=|
|00000950| 30 3a 46 4c 41 47 28 30 | 29 3d 31 0d 02 f8 2f 20 |0:FLAG(0|)=1.../ |
|00000960| f1 8a 31 35 2c 31 32 2b | 74 61 62 29 3b c3 28 a4 |..15,12+|tab);.(.|
|00000970| 54 49 4d 28 50 51 29 2d | a8 28 91 2f 31 30 30 29 |TIM(PQ)-|.(./100)|
|00000980| 29 2b 22 20 73 65 63 73 | 20 22 0d 03 02 11 20 44 |)+" secs| ".... D|
|00000990| 41 54 45 28 44 51 29 3d | 44 4a 44 0d 03 0c 17 20 |ATE(DQ)=|DJD.... |
|000009a0| 46 4c 41 47 28 29 3d 30 | 3a 46 4c 41 47 28 30 29 |FLAG()=0|:FLAG(0)|
|000009b0| 3d 31 0d 03 16 13 20 f2 | 43 61 6c 64 61 79 3a 44 |=1.... .|Calday:D|
|000009c0| 41 59 3d 44 59 0d 03 20 | 11 20 f2 4d 6f 6f 6e 3a |AY=DY.. |. .Moon:|
|000009d0| f2 4e 75 74 61 74 0d 03 | 2a 2e 20 4c 41 4d 28 44 |.Nutat..|*. LAM(D|
|000009e0| 51 29 3d a4 44 45 47 28 | 4c 41 4d 29 2b 44 50 53 |Q)=.DEG(|LAM)+DPS|
|000009f0| 49 3a f4 20 53 57 31 3d | 31 3a 50 52 4f 43 4d 69 |I:. SW1=|1:PROCMi|
|00000a00| 6e 73 65 63 0d 03 34 23 | 20 42 45 54 28 44 51 29 |nsec..4#| BET(DQ)|
|00000a10| 3d a4 44 45 47 28 42 45 | 54 29 3a f4 20 50 52 4f |=.DEG(BE|T):. PRO|
|00000a20| 43 4d 69 6e 73 65 63 0d | 03 3e 1e 20 58 3d 4c 41 |CMinsec.|.>. X=LA|
|00000a30| 4d 3a 59 3d 42 45 54 3a | 53 57 33 3d 2d 31 3a f2 |M:Y=BET:|SW3=-1:.|
|00000a40| 45 71 65 63 6c 0d 03 48 | 2f 20 50 58 3d 50 3a 51 |Eqecl..H|/ PX=P:Q|
|00000a50| 58 3d 51 3a 4c 41 4d 41 | 28 44 51 29 3d a4 44 45 |X=Q:LAMA|(DQ)=.DE|
|00000a60| 47 28 50 2f 31 35 29 3a | f4 20 50 52 4f 43 4d 69 |G(P/15):|. PROCMi|
|00000a70| 6e 73 65 63 0d 03 52 22 | 20 42 45 54 41 28 44 51 |nsec..R"| BETA(DQ|
|00000a80| 29 3d a4 44 45 47 28 51 | 29 3a f4 20 50 52 4f 43 |)=.DEG(Q|):. PROC|
|00000a90| 4d 69 6e 73 65 63 0d 03 | 5c 1c 20 58 3d a4 44 45 |Minsec..|\. X=.DE|
|00000aa0| 47 28 48 50 29 3a f4 20 | 50 52 4f 43 4d 69 6e 73 |G(HP):. |PROCMins|
|00000ab0| 65 63 0d 03 66 1f 20 52 | 3d 36 33 37 38 2e 31 34 |ec..f. R|=6378.14|
|00000ac0| 2f b5 28 48 50 29 3a 46 | 3d 52 2f 33 38 34 34 30 |/.(HP):F|=R/38440|
|00000ad0| 31 0d 03 70 14 20 54 48 | 45 54 3d 35 2e 31 38 31 |1..p. TH|ET=5.181|
|00000ae0| 45 2d 31 2f 46 0d 03 7a | 15 20 58 3d 28 54 48 45 |E-1/F..z|. X=(THE|
|00000af0| 54 29 3a f2 4d 69 6e 73 | 65 63 0d 03 84 1e 20 f2 |T):.Mins|ec.... .|
|00000b00| 53 75 6e 3a 43 44 3d 9b | 28 4c 41 4d 2d 4c 53 4e |Sun:CD=.|(LAM-LSN|
|00000b10| 29 2a 9b 28 42 45 54 29 | 0d 03 8e 17 20 44 3d a4 |)*.(BET)|.... D=.|
|00000b20| 41 43 53 28 43 44 29 3a | 53 44 3d b5 28 44 29 0d |ACS(CD):|SD=.(D).|
|00000b30| 03 98 3a 20 49 3d 31 2e | 34 36 38 45 2d 31 2a 53 |..: I=1.|468E-1*S|
|00000b40| 44 2a 28 31 2e 30 2d 35 | 2e 34 39 45 2d 32 2a b5 |D*(1.0-5|.49E-2*.|
|00000b50| 28 4d 44 29 29 2f 28 31 | 2e 30 2d 31 2e 36 37 45 |(MD))/(1|.0-1.67E|
|00000b60| 2d 32 2a b5 28 4d 53 29 | 29 0d 03 a2 26 20 49 3d |-2*.(MS)|)...& I=|
|00000b70| af 2d 44 2d a4 52 41 44 | 28 49 29 3a 50 48 28 44 |.-D-.RAD|(I):PH(D|
|00000b80| 51 29 3d 28 31 2e 30 2b | 9b 28 49 29 29 2f 32 0d |Q)=(1.0+|.(I))/2.|
|00000b90| 03 ac 06 20 3a 0d 03 b6 | 1f 20 54 49 4d 3d 30 3a |... :...|. TIM=0:|
|00000ba0| 53 57 32 3d 31 3a f2 47 | 74 69 6d 65 3a 47 53 54 |SW2=1:.G|time:GST|
|00000bb0| 3d 47 54 4d 0d 03 c0 19 | 20 58 3d a4 44 45 47 28 |=GTM....| X=.DEG(|
|00000bc0| 50 58 2f 31 35 29 3a f2 | 48 72 61 6e 67 0d 03 ca |PX/15):.|Hrang...|
|00000bd0| 1d 20 58 3d a4 52 41 44 | 28 50 29 2a 31 35 3a 59 |. X=.RAD|(P)*15:Y|
|00000be0| 3d 51 58 3a f2 45 71 68 | 6f 72 0d 03 d4 48 20 4c |=QX:.Eqh|or...H L|
|00000bf0| 41 4d 42 28 44 51 29 3d | a4 44 45 47 28 50 29 3a |AMB(DQ)=|.DEG(P):|
|00000c00| 42 45 54 42 28 44 51 29 | 3d a4 44 45 47 28 51 29 |BETB(DQ)|=.DEG(Q)|
|00000c10| 3a f4 20 20 20 20 20 20 | 20 20 4c 75 6e 61 72 20 |:. | Lunar |
|00000c20| 41 7a 2f 41 6c 74 20 61 | 74 20 6d 69 64 6e 69 67 |Az/Alt a|t midnig|
|00000c30| 68 74 0d 03 de 0b 20 44 | 59 3d 44 41 59 0d 03 e8 |ht.... D|Y=DAY...|
|00000c40| 0c 20 f2 4d 6f 6f 6e 72 | 73 0d 03 f2 14 20 e7 45 |. .Moonr|s.... .E|
|00000c50| 52 52 31 20 3c 3e 30 20 | 8c 8d 54 5a 44 0d 03 fc |RR1 <>0 |..TZD...|
|00000c60| 2a 20 41 5a 52 28 44 51 | 29 3d a4 44 45 47 28 41 |* AZR(DQ|)=.DEG(A|
|00000c70| 5a 52 30 29 3a 41 5a 53 | 28 44 51 29 3d a4 44 45 |ZR0):AZS|(DQ)=.DE|
|00000c80| 47 28 41 5a 53 30 29 0d | 04 06 23 20 44 4a 44 3d |G(AZS0).|..# DJD=|
|00000c90| 44 41 54 45 28 44 51 29 | 3a f2 43 61 6c 64 61 79 |DATE(DQ)|:.Calday|
|00000ca0| 3a 44 4a 44 3d 44 4a 44 | 2b 31 0d 04 10 09 20 ed |:DJD=DJD|+1.... .|
|00000cb0| 20 44 51 0d 04 1a 06 20 | 3a 0d 04 24 33 20 e3 4a | DQ.... |:..$3 .J|
|00000cc0| 3d 31 b8 50 51 3a 61 25 | 21 28 4a 2a 38 2d 34 29 |=1.PQ:a%|!(J*8-4)|
|00000cd0| 3d 4a 3a 61 25 21 28 4a | 2a 38 29 3d a8 28 42 45 |=J:a%!(J|*8)=.(BE|
|00000ce0| 54 42 28 4a 29 2a 31 45 | 36 29 3a ed 0d 04 2e 0a |TB(J)*1E|6):.....|
|00000cf0| 20 41 25 3d 61 25 0d 04 | 38 09 20 42 25 3d 31 0d | A%=a%..|8. B%=1.|
|00000d00| 04 42 0a 20 43 25 3d 50 | 51 0d 04 4c 47 20 d6 20 |.B. C%=P|Q..LG . |
|00000d10| 71 73 6f 72 74 3a f4 20 | 20 20 20 20 20 20 20 20 |qsort:. | |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d30| 20 20 20 53 6f 72 74 69 | 6e 67 20 62 79 20 61 6c | Sorti|ng by al|
|00000d40| 74 2f 61 7a 20 61 74 20 | 6d 69 64 6e 69 67 68 74 |t/az at |midnight|
|00000d50| 0d 04 56 06 20 3a 0d 04 | 60 23 20 e3 4a 3d 31 b8 |..V. :..|`# .J=1.|
|00000d60| 50 51 3a 42 45 54 42 28 | 4a 29 3d 61 25 21 28 4a |PQ:BETB(|J)=a%!(J|
|00000d70| 2a 38 29 2f 31 45 36 3a | ed 0d 04 6a 25 20 42 45 |*8)/1E6:|...j% BE|
|00000d80| 54 42 6d 61 78 3d 42 45 | 54 42 28 50 51 29 3a 42 |TBmax=BE|TB(PQ):B|
|00000d90| 45 54 42 6d 69 6e 3d 42 | 45 54 42 28 31 29 0d 04 |ETBmin=B|ETB(1)..|
|00000da0| 74 38 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |t8 .J=1.|PQ:SP(J)|
|00000db0| 3d 44 41 54 45 28 61 25 | 21 28 4a 2a 38 2d 34 29 |=DATE(a%|!(J*8-4)|
|00000dc0| 29 3a ed 3a 44 41 54 45 | 28 29 3d 53 50 28 29 3a |):.:DATE|()=SP():|
|00000dd0| 53 50 28 29 3d 30 0d 04 | 7e 36 20 e3 4a 3d 31 b8 |SP()=0..|~6 .J=1.|
|00000de0| 50 51 3a 53 50 28 4a 29 | 3d 4c 41 4d 28 61 25 21 |PQ:SP(J)|=LAM(a%!|
|00000df0| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 4c 41 4d 28 29 |(J*8-4))|:.:LAM()|
|00000e00| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 04 88 38 |=SP():SP|()=0...8|
|00000e10| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 4c | .J=1.PQ|:SP(J)=L|
|00000e20| 41 4d 41 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |AMA(a%!(|J*8-4)):|
|00000e30| ed 3a 4c 41 4d 41 28 29 | 3d 53 50 28 29 3a 53 50 |.:LAMA()|=SP():SP|
|00000e40| 28 29 3d 30 0d 04 92 38 | 20 e3 4a 3d 31 b8 50 51 |()=0...8| .J=1.PQ|
|00000e50| 3a 53 50 28 4a 29 3d 4c | 41 4d 42 28 61 25 21 28 |:SP(J)=L|AMB(a%!(|
|00000e60| 4a 2a 38 2d 34 29 29 3a | ed 3a 4c 41 4d 42 28 29 |J*8-4)):|.:LAMB()|
|00000e70| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 04 9c 36 |=SP():SP|()=0...6|
|00000e80| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 42 | .J=1.PQ|:SP(J)=B|
|00000e90| 45 54 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |ET(a%!(J|*8-4)):.|
|00000ea0| 3a 42 45 54 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |:BET()=S|P():SP()|
|00000eb0| 3d 30 0d 04 a6 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...8 .|J=1.PQ:S|
|00000ec0| 50 28 4a 29 3d 42 45 54 | 42 28 61 25 21 28 4a 2a |P(J)=BET|B(a%!(J*|
|00000ed0| 38 2d 34 29 29 3a ed 3a | 42 45 54 41 28 29 3d 53 |8-4)):.:|BETA()=S|
|00000ee0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 04 b0 36 20 e3 |P():SP()|=0...6 .|
|00000ef0| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 41 5a 53 |J=1.PQ:S|P(J)=AZS|
|00000f00| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|00000f10| 5a 53 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |ZS()=SP(|):SP()=0|
|00000f20| 0d 04 ba 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...6 .J=|1.PQ:SP(|
|00000f30| 4a 29 3d 41 5a 52 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=AZR(a|%!(J*8-4|
|00000f40| 29 29 3a ed 3a 41 5a 52 | 28 29 3d 53 50 28 29 3a |)):.:AZR|()=SP():|
|00000f50| 53 50 28 29 3d 30 0d 04 | c4 34 20 e3 4a 3d 31 b8 |SP()=0..|.4 .J=1.|
|00000f60| 50 51 3a 53 50 28 4a 29 | 3d 50 48 28 61 25 21 28 |PQ:SP(J)|=PH(a%!(|
|00000f70| 4a 2a 38 2d 34 29 29 3a | ed 3a 50 48 28 29 3d 53 |J*8-4)):|.:PH()=S|
|00000f80| 50 28 29 3a 53 50 28 29 | 3d 30 0d 04 ce 06 20 3a |P():SP()|=0.... :|
|00000f90| 0d 04 d8 47 20 44 4a 44 | 3d 44 41 54 45 28 50 51 |...G DJD|=DATE(PQ|
|00000fa0| 29 3a 46 4c 41 47 28 32 | 29 3d 30 3a f2 43 61 6c |):FLAG(2|)=0:.Cal|
|00000fb0| 64 61 79 3a f4 20 20 20 | 20 20 20 20 20 44 61 74 |day:. | Dat|
|00000fc0| 65 20 6f 66 20 6d 61 78 | 20 6c 75 6e 61 72 20 61 |e of max| lunar a|
|00000fd0| 6c 74 69 74 75 64 65 0d | 04 e2 1f 20 58 44 3d 44 |ltitude.|... XD=D|
|00000fe0| 59 3a 58 4d 3d 4d 4e 3a | 58 53 3d 59 52 3a f2 53 |Y:XM=MN:|XS=YR:.S|
|00000ff0| 74 72 69 6e 67 73 0d 04 | ec 22 20 44 59 41 4c 24 |trings..|." DYAL$|
|00001000| 3d 58 44 24 3a 4d 4e 41 | 4c 24 3d 58 4d 24 3a 59 |=XD$:MNA|L$=XM$:Y|
|00001010| 52 41 4c 24 3d 58 53 24 | 0d 04 f6 06 20 3a 0d 05 |RAL$=XS$|.... :..|
|00001020| 00 0e 20 f2 61 6c 74 69 | 74 75 64 65 0d 05 0a 06 |.. .alti|tude....|
|00001030| 20 3a 0d 05 14 2b 20 e8 | 22 47 72 61 70 68 20 41 | :...+ .|"Graph A|
|00001040| 6c 74 69 74 75 64 65 2c | 20 41 7a 69 6d 75 74 68 |ltitude,| Azimuth|
|00001050| 20 26 20 50 68 61 73 65 | 22 3b 41 4e 24 0d 05 1e | & Phase|";AN$...|
|00001060| 12 20 e7 41 4e 24 3d 22 | 4e 22 8c 8d 64 5c 45 0d |. .AN$="|N"..d\E.|
|00001070| 05 28 0c 20 f2 64 65 73 | 6f 72 74 0d 05 32 0b 20 |.(. .des|ort..2. |
|00001080| f2 73 63 61 6c 65 0d 05 | 3c 10 20 f2 63 68 61 72 |.scale..|<. .char|
|00001090| 74 73 65 74 75 70 0d 05 | 46 0c 20 f2 63 75 72 76 |tsetup..|F. .curv|
|000010a0| 65 73 0d 05 50 14 20 f1 | 8a 33 36 2c 33 31 29 3b |es..P. .|.36,31);|
|000010b0| 22 64 61 79 73 22 0d 05 | 5a 21 20 e8 8a 35 30 2c |"days"..|Z! ..50,|
|000010c0| 34 29 3b 22 43 61 6c 63 | 75 6c 61 74 65 20 64 61 |4);"Calc|ulate da|
|000010d0| 74 65 22 3b 41 4e 24 0d | 05 64 21 20 f1 8a 35 30 |te";AN$.|.d! ..50|
|000010e0| 2c 34 29 3b 22 20 20 20 | 20 20 20 20 20 20 20 20 |,4);" | |
|000010f0| 20 20 20 20 20 20 20 22 | 0d 05 6e 12 20 e7 41 4e | "|..n. .AN|
|00001100| 24 3d 22 4e 22 8c 8d 74 | 74 45 0d 05 78 27 20 e8 |$="N"..t|tE..x' .|
|00001110| 8a 35 30 2c 34 29 3b 22 | 44 61 79 20 6e 75 6d 62 |.50,4);"|Day numb|
|00001120| 65 72 20 66 72 6f 6d 20 | 73 63 61 6c 65 22 3b 44 |er from |scale";D|
|00001130| 32 0d 05 82 28 20 f1 8a | 35 30 2c 34 29 3b 22 20 |2...( ..|50,4);" |
|00001140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001150| 20 20 20 20 20 20 20 20 | 22 0d 05 8c 3b 20 44 4a | |"...; DJ|
|00001160| 44 3d 44 4a 44 31 2b 44 | 32 3a 46 4c 41 47 28 32 |D=DJD1+D|2:FLAG(2|
|00001170| 29 3d 30 3a f2 43 61 6c | 64 61 79 3a f1 8a 33 35 |)=0:.Cal|day:..35|
|00001180| 2c 34 29 3b 44 59 3b 22 | 2f 22 3b 4d 4e 3b 22 2f |,4);DY;"|/";MN;"/|
|00001190| 22 3b 59 52 0d 05 96 2a | 20 e8 8a 35 30 2c 34 29 |";YR...*| ..50,4)|
|000011a0| 3b 22 41 6e 6f 74 68 65 | 72 20 64 61 74 65 20 20 |;"Anothe|r date |
|000011b0| 20 20 20 20 20 20 20 20 | 20 22 3b 41 4e 24 0d 05 | | ";AN$..|
|000011c0| a0 38 20 f1 8a 33 35 2c | 34 29 3b 22 20 20 20 20 |.8 ..35,|4);" |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011f0| 20 20 20 20 20 22 0d 05 | aa 12 20 e7 41 4e 24 3d | "..|.. .AN$=|
|00001200| 22 59 22 8c 8d 44 78 45 | 0d 05 b4 38 20 f1 8a 33 |"Y"..DxE|...8 ..3|
|00001210| 35 2c 34 29 3b 22 20 20 | 20 20 20 20 20 20 20 20 |5,4);" | |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 | | "|
|00001240| 0d 05 be 1f 20 e8 8a 35 | 30 2c 34 29 3b 22 52 65 |.... ..5|0,4);"Re|
|00001250| 76 69 65 77 20 74 61 62 | 6c 65 22 3b 41 4e 24 0d |view tab|le";AN$.|
|00001260| 05 c8 14 20 e7 20 41 4e | 24 3d 22 59 22 20 8c 8d |... . AN|$="Y" ..|
|00001270| 54 64 44 0d 05 d2 06 20 | db 0d 05 dc 1c 20 c8 99 |TdD.... |..... ..|
|00001280| 22 4f 53 5f 55 70 64 61 | 74 65 4d 45 4d 43 22 2c |"OS_Upda|teMEMC",|
|00001290| 2c 36 34 3a e0 0d 05 e6 | 06 20 3a 0d 05 f0 0f 20 |,64:....|. :.... |
|000012a0| dd f2 61 6c 74 69 74 75 | 64 65 0d 05 fa 06 20 db |..altitu|de.... .|
|000012b0| 0d 06 04 14 20 e7 20 54 | 61 62 6c 65 24 3d 22 59 |.... . T|able$="Y|
|000012c0| 22 20 ef 32 0d 06 0e 35 | 20 f1 27 8a 31 30 29 3b |" .2...5| .'.10);|
|000012d0| 22 54 68 65 20 4d 6f 6f | 6e 20 66 72 6f 6d 20 22 |"The Moo|n from "|
|000012e0| 3b 4e 41 4d 45 24 3b 22 | 20 28 47 4d 54 22 3b 4b |;NAME$;"| (GMT";K|
|000012f0| 24 3b 4c 37 3b 22 29 22 | 3b 0d 06 18 1f 20 44 4a |$;L7;")"|;.... DJ|
|00001300| 44 3d 44 4a 44 31 3a 46 | 4c 41 47 28 32 29 3d 30 |D=DJD1:F|LAG(2)=0|
|00001310| 3a f2 43 61 6c 64 61 79 | 0d 06 22 37 20 58 44 3d |:.Calday|.."7 XD=|
|00001320| 44 59 3a 58 4d 3d 4d 4e | 3a 58 53 3d 59 52 3a f2 |DY:XM=MN|:XS=YR:.|
|00001330| 53 74 72 69 6e 67 73 3a | 44 59 24 3d 58 44 24 3a |Strings:|DY$=XD$:|
|00001340| 4d 4e 24 3d 58 4d 24 3a | 59 52 24 3d 58 53 24 0d |MN$=XM$:|YR$=XS$.|
|00001350| 06 2c 3d 20 f1 89 28 31 | 29 3b 44 59 24 3b 22 2f |.,= ..(1|);DY$;"/|
|00001360| 22 3b 4d 4e 24 3b 22 2f | 22 3b 59 52 24 3b 22 20 |";MN$;"/|";YR$;" |
|00001370| 74 6f 22 3b 3a 44 31 24 | 3d 44 59 24 3a 4d 31 24 |to";:D1$|=DY$:M1$|
|00001380| 3d 4d 4e 24 3a 59 31 24 | 3d 59 52 24 0d 06 36 1f |=MN$:Y1$|=YR$..6.|
|00001390| 20 44 4a 44 3d 44 4a 44 | 32 3a 46 4c 41 47 28 32 | DJD=DJD|2:FLAG(2|
|000013a0| 29 3d 30 3a f2 43 61 6c | 64 61 79 0d 06 40 37 20 |)=0:.Cal|day..@7 |
|000013b0| 58 44 3d 44 59 3a 58 4d | 3d 4d 4e 3a 58 53 3d 59 |XD=DY:XM|=MN:XS=Y|
|000013c0| 52 3a f2 53 74 72 69 6e | 67 73 3a 44 59 24 3d 58 |R:.Strin|gs:DY$=X|
|000013d0| 44 24 3a 4d 4e 24 3d 58 | 4d 24 3a 59 52 24 3d 58 |D$:MN$=X|M$:YR$=X|
|000013e0| 53 24 0d 06 4a 36 20 f1 | 89 28 31 29 3b 44 59 24 |S$..J6 .|.(1);DY$|
|000013f0| 3b 22 2f 22 3b 4d 4e 24 | 3b 22 2f 22 3b 59 52 24 |;"/";MN$|;"/";YR$|
|00001400| 3a 44 32 24 3d 44 59 24 | 3a 4d 32 24 3d 4d 4e 24 |:D2$=DY$|:M2$=MN$|
|00001410| 3a 59 32 24 3d 59 52 24 | 0d 06 54 30 20 f1 27 8a |:Y2$=YR$|..T0 .'.|
|00001420| 35 29 3b 22 4d 61 78 20 | 61 6c 74 69 74 75 64 65 |5);"Max |altitude|
|00001430| 20 64 75 72 69 6e 67 20 | 74 68 65 20 70 65 72 69 | during |the peri|
|00001440| 6f 64 20 69 73 20 22 3b | 0d 06 5e 25 20 58 3d 42 |od is ";|..^% X=B|
|00001450| 45 54 42 6d 61 78 3a 53 | 57 31 3d 31 3a f2 4d 69 |ETBmax:S|W1=1:.Mi|
|00001460| 6e 73 65 63 3a f2 53 74 | 72 69 6e 67 73 0d 06 68 |nsec:.St|rings..h|
|00001470| 47 20 f1 8a 34 32 29 3b | 58 44 24 3b 22 2c 22 3b |G ..42);|XD$;",";|
|00001480| 58 4d 24 3b 22 2c 22 3b | 58 53 24 3b 22 20 28 44 |XM$;",";|XS$;" (D|
|00001490| 2c 4d 2c 53 29 20 6f 6e | 20 22 3b 44 59 41 4c 24 |,M,S) on| ";DYAL$|
|000014a0| 3b 22 2f 22 3b 4d 4e 41 | 4c 24 3b 22 2f 22 3b 59 |;"/";MNA|L$;"/";Y|
|000014b0| 52 41 4c 24 0d 06 72 06 | 20 f1 0d 06 7c 0c 20 f2 |RAL$..r.| ...|. .|
|000014c0| 4d 6f 6f 6e 6e 66 0d 06 | 86 1c 20 58 3d 4a 44 31 |Moonnf..|.. X=JD1|
|000014d0| 4e 2d 30 2e 35 3a 44 4a | 44 3d 4a 44 30 4e 2b 30 |N-0.5:DJ|D=JD0N+0|
|000014e0| 2e 35 0d 06 90 1c 20 e7 | 20 58 3c 30 20 8c 20 58 |.5.... .| X<0 . X|
|000014f0| 3d 58 2b 31 3a 44 4a 44 | 3d 44 4a 44 2d 31 0d 06 |=X+1:DJD|=DJD-1..|
|00001500| 9a 16 20 46 4c 41 47 28 | 32 29 3d 30 3a f2 43 61 |.. FLAG(|2)=0:.Ca|
|00001510| 6c 64 61 79 0d 06 a4 3a | 20 58 44 3d a8 28 44 59 |lday...:| XD=.(DY|
|00001520| 29 3a 58 4d 3d 4d 4e 3a | 58 53 3d 59 52 3a f2 53 |):XM=MN:|XS=YR:.S|
|00001530| 74 72 69 6e 67 73 3a 44 | 59 24 3d 58 44 24 3a 4d |trings:D|Y$=XD$:M|
|00001540| 4e 24 3d 58 4d 24 3a 59 | 52 24 3d 58 53 24 0d 06 |N$=XM$:Y|R$=XS$..|
|00001550| ae 2b 20 58 3d 58 2a 32 | 34 2b 38 2e 33 33 33 45 |.+ X=X*2|4+8.333E|
|00001560| 2d 33 3a 53 57 31 3d 31 | 3a f2 4d 69 6e 73 65 63 |-3:SW1=1|:.Minsec|
|00001570| 3a f2 53 74 72 69 6e 67 | 73 0d 06 b8 55 20 f1 8a |:.String|s...U ..|
|00001580| 31 32 29 3b 22 4e 65 61 | 72 65 73 74 20 6e 65 77 |12);"Nea|rest new|
|00001590| 20 6d 6f 6f 6e 20 69 73 | 20 6f 6e 20 20 3a 20 22 | moon is| on : "|
|000015a0| 3b 44 59 24 3b 22 2f 22 | 3b 4d 4e 24 3b 22 2f 22 |;DY$;"/"|;MN$;"/"|
|000015b0| 3b 59 52 24 3b 22 20 61 | 74 20 22 3b 58 44 24 3b |;YR$;" a|t ";XD$;|
|000015c0| 22 3a 22 3b 58 4d 24 3b | 22 20 68 72 73 22 0d 06 |":";XM$;|" hrs"..|
|000015d0| c2 1c 20 58 3d 4a 44 31 | 46 2d 30 2e 35 3a 44 4a |.. X=JD1|F-0.5:DJ|
|000015e0| 44 3d 4a 44 30 46 2b 30 | 2e 35 0d 06 cc 1c 20 e7 |D=JD0F+0|.5.... .|
|000015f0| 20 58 3c 30 20 8c 20 58 | 3d 58 2b 31 3a 44 4a 44 | X<0 . X|=X+1:DJD|
|00001600| 3d 44 4a 44 2d 31 0d 06 | d6 16 20 46 4c 41 47 28 |=DJD-1..|.. FLAG(|
|00001610| 32 29 3d 30 3a f2 43 61 | 6c 64 61 79 0d 06 e0 3a |2)=0:.Ca|lday...:|
|00001620| 20 58 44 3d a8 28 44 59 | 29 3a 58 4d 3d 4d 4e 3a | XD=.(DY|):XM=MN:|
|00001630| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 3a 44 |XS=YR:.S|trings:D|
|00001640| 59 24 3d 58 44 24 3a 4d | 4e 24 3d 58 4d 24 3a 59 |Y$=XD$:M|N$=XM$:Y|
|00001650| 52 24 3d 58 53 24 0d 06 | ea 2b 20 58 3d 58 2a 32 |R$=XS$..|.+ X=X*2|
|00001660| 34 2b 38 2e 33 33 33 45 | 2d 33 3a 53 57 31 3d 31 |4+8.333E|-3:SW1=1|
|00001670| 3a f2 4d 69 6e 73 65 63 | 3a f2 53 74 72 69 6e 67 |:.Minsec|:.String|
|00001680| 73 0d 06 f4 56 20 f1 27 | 8a 31 32 29 3b 22 57 69 |s...V .'|.12);"Wi|
|00001690| 74 68 20 6e 65 78 74 20 | 66 75 6c 6c 20 6d 6f 6f |th next |full moo|
|000016a0| 6e 20 6f 6e 20 20 3a 20 | 22 3b 44 59 24 3b 22 2f |n on : |";DY$;"/|
|000016b0| 22 3b 4d 4e 24 3b 22 2f | 22 3b 59 52 24 3b 22 20 |";MN$;"/|";YR$;" |
|000016c0| 61 74 20 22 3b 58 44 24 | 3b 22 3a 22 3b 58 4d 24 |at ";XD$|;":";XM$|
|000016d0| 3b 22 20 68 72 73 22 0d | 06 fe 06 20 f1 0d 07 08 |;" hrs".|... ....|
|000016e0| 37 20 f1 27 8a 31 38 29 | 3b 22 4e 65 78 74 20 68 |7 .'.18)|;"Next h|
|000016f0| 69 67 68 65 73 74 20 61 | 6c 74 69 74 75 64 65 73 |ighest a|ltitudes|
|00001700| 20 64 75 72 69 6e 67 20 | 74 68 65 20 70 65 72 69 | during |the peri|
|00001710| 6f 64 3a 22 0d 07 12 06 | 20 f1 0d 07 1c 17 20 e3 |od:"....| ..... .|
|00001720| 4a 3d 50 51 2d 31 20 b8 | 20 50 51 2d 35 20 88 2d |J=PQ-1 .| PQ-5 .-|
|00001730| 31 0d 07 26 3d 20 46 4c | 41 47 28 32 29 3d 30 3a |1..&= FL|AG(2)=0:|
|00001740| 44 4a 44 3d 44 41 54 45 | 28 4a 29 3a f2 43 61 6c |DJD=DATE|(J):.Cal|
|00001750| 64 61 79 3a 58 44 3d 44 | 59 3a 58 4d 3d 4d 4e 3a |day:XD=D|Y:XM=MN:|
|00001760| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 0d 07 |XS=YR:.S|trings..|
|00001770| 30 1c 20 44 59 24 3d 58 | 44 24 3a 4d 4e 24 3d 58 |0. DY$=X|D$:MN$=X|
|00001780| 4d 24 3a 59 52 24 3d 58 | 53 24 0d 07 3a 45 20 f1 |M$:YR$=X|S$..:E .|
|00001790| 8a 39 29 3b 22 6c 75 6e | 61 72 20 61 6c 74 69 74 |.9);"lun|ar altit|
|000017a0| 75 64 65 20 61 74 20 6d | 69 64 6e 69 67 68 74 20 |ude at m|idnight |
|000017b0| 6f 6e 20 22 3b 44 59 24 | 3b 22 2f 22 3b 4d 4e 24 |on ";DY$|;"/";MN$|
|000017c0| 22 2f 22 3b 59 52 24 3b | 22 20 69 73 20 22 3b 0d |"/";YR$;|" is ";.|
|000017d0| 07 44 25 20 53 57 31 3d | 31 3a 58 3d 42 45 54 42 |.D% SW1=|1:X=BETB|
|000017e0| 28 4a 29 3a f2 4d 69 6e | 73 65 63 3a f2 53 74 72 |(J):.Min|sec:.Str|
|000017f0| 69 6e 67 73 0d 07 4e 1e | 20 f1 89 28 32 29 3b 58 |ings..N.| ..(2);X|
|00001800| 44 24 3b 22 2c 22 3b 58 | 4d 24 3b 22 2c 22 3b 58 |D$;",";X|M$;",";X|
|00001810| 53 24 0d 07 58 25 20 f1 | 8a 33 30 29 3b 22 20 2e |S$..X% .|.30);" .|
|00001820| 2e 2e 61 6e 64 20 74 68 | 65 20 61 7a 69 6d 75 74 |..and th|e azimut|
|00001830| 68 20 69 73 20 22 3b 0d | 07 62 25 20 53 57 31 3d |h is ";.|.b% SW1=|
|00001840| 31 3a 58 3d 4c 41 4d 42 | 28 4a 29 3a f2 4d 69 6e |1:X=LAMB|(J):.Min|
|00001850| 73 65 63 3a f2 53 74 72 | 69 6e 67 73 0d 07 6c 29 |sec:.Str|ings..l)|
|00001860| 20 f1 89 28 32 2d 28 a9 | 28 58 44 24 29 2d 32 29 | ..(2-(.|(XD$)-2)|
|00001870| 29 3b 58 44 24 3b 22 2c | 22 3b 58 4d 24 3b 22 2c |);XD$;",|";XM$;",|
|00001880| 22 3b 58 53 24 0d 07 76 | 06 20 f1 0d 07 80 08 20 |";XS$..v|. ..... |
|00001890| ed 20 4a 0d 07 8a 07 20 | ef 33 0d 07 94 06 20 e1 |. J.... |.3.... .|
|000018a0| 0d 07 9e 06 20 3a 0d 07 | a8 0d 20 dd f2 64 65 73 |.... :..|.. ..des|
|000018b0| 6f 72 74 0d 07 b2 32 20 | e3 4a 3d 31 b8 50 51 3a |ort...2 |.J=1.PQ:|
|000018c0| 61 25 21 28 4a 2a 38 29 | 3d a8 28 44 41 54 45 28 |a%!(J*8)|=.(DATE(|
|000018d0| 4a 29 2a 31 30 29 3a 61 | 25 21 28 4a 2a 38 2d 34 |J)*10):a|%!(J*8-4|
|000018e0| 29 3d 4a 3a ed 0d 07 bc | 0a 20 41 25 3d 61 25 0d |)=J:....|. A%=a%.|
|000018f0| 07 c6 09 20 42 25 3d 31 | 0d 07 d0 0a 20 43 25 3d |... B%=1|.... C%=|
|00001900| 50 51 0d 07 da 47 20 d6 | 20 71 73 6f 72 74 3a f4 |PQ...G .| qsort:.|
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001920| 20 20 20 20 20 20 20 52 | 65 2d 73 6f 72 74 20 61 | R|e-sort a|
|00001930| 6c 6c 20 61 72 72 61 79 | 73 20 69 6e 74 6f 20 64 |ll array|s into d|
|00001940| 61 74 65 20 6f 72 64 65 | 72 0d 07 e4 06 20 3a 0d |ate orde|r.... :.|
|00001950| 07 ee 22 20 e3 4a 3d 31 | b8 50 51 3a 44 41 54 45 |.." .J=1|.PQ:DATE|
|00001960| 28 4a 29 3d 61 25 21 28 | 4a 2a 38 29 2f 31 30 3a |(J)=a%!(|J*8)/10:|
|00001970| ed 0d 07 f8 36 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |....6 .J|=1.PQ:SP|
|00001980| 28 4a 29 3d 4c 41 4d 28 | 61 25 21 28 4a 2a 38 2d |(J)=LAM(|a%!(J*8-|
|00001990| 34 29 29 3a ed 3a 4c 41 | 4d 28 29 3d 53 50 28 29 |4)):.:LA|M()=SP()|
|000019a0| 3a 53 50 28 29 3d 30 0d | 08 02 36 20 e3 4a 3d 31 |:SP()=0.|..6 .J=1|
|000019b0| b8 50 51 3a 53 50 28 4a | 29 3d 42 45 54 28 61 25 |.PQ:SP(J|)=BET(a%|
|000019c0| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 42 45 54 28 |!(J*8-4)|):.:BET(|
|000019d0| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 08 0c |)=SP():S|P()=0...|
|000019e0| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|000019f0| 4c 41 4d 41 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |LAMA(a%!|(J*8-4))|
|00001a00| 3a ed 3a 4c 41 4d 41 28 | 29 3d 53 50 28 29 3a 53 |:.:LAMA(|)=SP():S|
|00001a10| 50 28 29 3d 30 0d 08 16 | 38 20 e3 4a 3d 31 b8 50 |P()=0...|8 .J=1.P|
|00001a20| 51 3a 53 50 28 4a 29 3d | 42 45 54 41 28 61 25 21 |Q:SP(J)=|BETA(a%!|
|00001a30| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 42 45 54 41 28 |(J*8-4))|:.:BETA(|
|00001a40| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 08 20 |)=SP():S|P()=0.. |
|00001a50| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|00001a60| 4c 41 4d 42 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |LAMB(a%!|(J*8-4))|
|00001a70| 3a ed 3a 4c 41 4d 42 28 | 29 3d 53 50 28 29 3a 53 |:.:LAMB(|)=SP():S|
|00001a80| 50 28 29 3d 30 0d 08 2a | 38 20 e3 4a 3d 31 b8 50 |P()=0..*|8 .J=1.P|
|00001a90| 51 3a 53 50 28 4a 29 3d | 42 45 54 42 28 61 25 21 |Q:SP(J)=|BETB(a%!|
|00001aa0| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 42 45 54 42 28 |(J*8-4))|:.:BETB(|
|00001ab0| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 08 34 |)=SP():S|P()=0..4|
|00001ac0| 36 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |6 .J=1.P|Q:SP(J)=|
|00001ad0| 41 5a 52 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |AZR(a%!(|J*8-4)):|
|00001ae0| ed 3a 41 5a 52 28 29 3d | 53 50 28 29 3a 53 50 28 |.:AZR()=|SP():SP(|
|00001af0| 29 3d 30 0d 08 3e 36 20 | e3 4a 3d 31 b8 50 51 3a |)=0..>6 |.J=1.PQ:|
|00001b00| 53 50 28 4a 29 3d 41 5a | 53 28 61 25 21 28 4a 2a |SP(J)=AZ|S(a%!(J*|
|00001b10| 38 2d 34 29 29 3a ed 3a | 41 5a 53 28 29 3d 53 50 |8-4)):.:|AZS()=SP|
|00001b20| 28 29 3a 53 50 28 29 3d | 30 0d 08 48 34 20 e3 4a |():SP()=|0..H4 .J|
|00001b30| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 50 48 28 61 |=1.PQ:SP|(J)=PH(a|
|00001b40| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 50 48 28 |%!(J*8-4|)):.:PH(|
|00001b50| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 08 52 |)=SP():S|P()=0..R|
|00001b60| 06 20 3a 0d 08 5c 32 20 | e3 4a 3d 31 b8 50 51 3a |. :..\2 |.J=1.PQ:|
|00001b70| 61 25 21 28 4a 2a 38 29 | 3d a8 28 41 5a 52 28 4a |a%!(J*8)|=.(AZR(J|
|00001b80| 29 2a 31 45 36 29 3a 61 | 25 21 28 4a 2a 38 2d 34 |)*1E6):a|%!(J*8-4|
|00001b90| 29 3d 4a 3a ed 0d 08 66 | 0a 20 41 25 3d 61 25 0d |)=J:...f|. A%=a%.|
|00001ba0| 08 70 09 20 42 25 3d 31 | 0d 08 7a 0a 20 43 25 3d |.p. B%=1|..z. C%=|
|00001bb0| 50 51 0d 08 84 47 20 d6 | 20 71 73 6f 72 74 3a f4 |PQ...G .| qsort:.|
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001be0| 20 20 20 20 20 53 6f 72 | 74 20 66 6f 72 20 41 5a | Sor|t for AZ|
|00001bf0| 52 20 6d 61 78 2f 6d 69 | 6e 0d 08 8e 06 20 3a 0d |R max/mi|n.... :.|
|00001c00| 08 98 22 20 e3 4a 3d 31 | b8 50 51 3a 41 5a 52 28 |.." .J=1|.PQ:AZR(|
|00001c10| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 45 36 3a |J)=a%!(J|*8)/1E6:|
|00001c20| ed 0d 08 a2 21 20 41 5a | 52 6d 61 78 3d 41 5a 52 |....! AZ|Rmax=AZR|
|00001c30| 28 50 51 29 3a 41 5a 52 | 6d 69 6e 3d 41 5a 52 28 |(PQ):AZR|min=AZR(|
|00001c40| 31 29 0d 08 ac 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |1)...8 .|J=1.PQ:S|
|00001c50| 50 28 4a 29 3d 44 41 54 | 45 28 61 25 21 28 4a 2a |P(J)=DAT|E(a%!(J*|
|00001c60| 38 2d 34 29 29 3a ed 3a | 44 41 54 45 28 29 3d 53 |8-4)):.:|DATE()=S|
|00001c70| 50 28 29 3a 53 50 28 29 | 3d 30 0d 08 b6 06 20 3a |P():SP()|=0.... :|
|00001c80| 0d 08 c0 32 20 e3 4a 3d | 31 b8 50 51 3a 61 25 21 |...2 .J=|1.PQ:a%!|
|00001c90| 28 4a 2a 38 29 3d a8 28 | 44 41 54 45 28 4a 29 2a |(J*8)=.(|DATE(J)*|
|00001ca0| 31 30 29 3a 61 25 21 28 | 4a 2a 38 2d 34 29 3d 4a |10):a%!(|J*8-4)=J|
|00001cb0| 3a ed 0d 08 ca 0a 20 41 | 25 3d 61 25 0d 08 d4 09 |:..... A|%=a%....|
|00001cc0| 20 42 25 3d 31 0d 08 de | 0a 20 43 25 3d 50 51 0d | B%=1...|. C%=PQ.|
|00001cd0| 08 e8 47 20 d6 20 71 73 | 6f 72 74 3a f4 20 20 20 |..G . qs|ort:. |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 20 52 65 2d 73 6f | | Re-so|
|00001d00| 72 74 20 41 5a 52 20 69 | 6e 74 6f 20 64 61 74 65 |rt AZR i|nto date|
|00001d10| 20 6f 72 64 65 72 0d 08 | f2 06 20 3a 0d 08 fc 22 | order..|.. :..."|
|00001d20| 20 e3 4a 3d 31 b8 50 51 | 3a 44 41 54 45 28 4a 29 | .J=1.PQ|:DATE(J)|
|00001d30| 3d 61 25 21 28 4a 2a 38 | 29 2f 31 30 3a ed 0d 09 |=a%!(J*8|)/10:...|
|00001d40| 06 36 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.6 .J=1.|PQ:SP(J)|
|00001d50| 3d 41 5a 52 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |=AZR(a%!|(J*8-4))|
|00001d60| 3a ed 3a 41 5a 52 28 29 | 3d 53 50 28 29 3a 53 50 |:.:AZR()|=SP():SP|
|00001d70| 28 29 3d 30 0d 09 10 06 | 20 3a 0d 09 1a 32 20 e3 |()=0....| :...2 .|
|00001d80| 4a 3d 31 b8 50 51 3a 61 | 25 21 28 4a 2a 38 29 3d |J=1.PQ:a|%!(J*8)=|
|00001d90| a8 28 41 5a 53 28 4a 29 | 2a 31 45 36 29 3a 61 25 |.(AZS(J)|*1E6):a%|
|00001da0| 21 28 4a 2a 38 2d 34 29 | 3d 4a 3a ed 0d 09 24 0a |!(J*8-4)|=J:...$.|
|00001db0| 20 41 25 3d 61 25 0d 09 | 2e 09 20 42 25 3d 31 0d | A%=a%..|.. B%=1.|
|00001dc0| 09 38 0a 20 43 25 3d 50 | 51 0d 09 42 46 20 d6 20 |.8. C%=P|Q..BF . |
|00001dd0| 71 73 6f 72 74 3a f4 20 | 20 20 20 20 20 20 20 20 |qsort:. | |
|00001de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 53 6f 72 74 20 | | Sort |
|00001e00| 66 6f 72 20 41 5a 53 20 | 6d 61 78 2f 6d 69 6e 0d |for AZS |max/min.|
|00001e10| 09 4c 06 20 3a 0d 09 56 | 22 20 e3 4a 3d 31 b8 50 |.L. :..V|" .J=1.P|
|00001e20| 51 3a 41 5a 53 28 4a 29 | 3d 61 25 21 28 4a 2a 38 |Q:AZS(J)|=a%!(J*8|
|00001e30| 29 2f 31 45 36 3a ed 0d | 09 60 21 20 41 5a 53 6d |)/1E6:..|.`! AZSm|
|00001e40| 61 78 3d 41 5a 53 28 50 | 51 29 3a 41 5a 53 6d 69 |ax=AZS(P|Q):AZSmi|
|00001e50| 6e 3d 41 5a 53 28 31 29 | 0d 09 6a 38 20 e3 4a 3d |n=AZS(1)|..j8 .J=|
|00001e60| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 44 41 54 45 28 |1.PQ:SP(|J)=DATE(|
|00001e70| 61 25 21 28 4a 2a 38 2d | 34 29 29 3a ed 3a 44 41 |a%!(J*8-|4)):.:DA|
|00001e80| 54 45 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |TE()=SP(|):SP()=0|
|00001e90| 0d 09 74 06 20 3a 0d 09 | 7e 32 20 e3 4a 3d 31 b8 |..t. :..|~2 .J=1.|
|00001ea0| 50 51 3a 61 25 21 28 4a | 2a 38 29 3d a8 28 44 41 |PQ:a%!(J|*8)=.(DA|
|00001eb0| 54 45 28 4a 29 2a 31 30 | 29 3a 61 25 21 28 4a 2a |TE(J)*10|):a%!(J*|
|00001ec0| 38 2d 34 29 3d 4a 3a ed | 0d 09 88 0a 20 41 25 3d |8-4)=J:.|.... A%=|
|00001ed0| 61 25 0d 09 92 09 20 42 | 25 3d 31 0d 09 9c 0a 20 |a%.... B|%=1.... |
|00001ee0| 43 25 3d 50 51 0d 09 a6 | 47 20 d6 20 71 73 6f 72 |C%=PQ...|G . qsor|
|00001ef0| 74 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t:. | |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f10| 20 52 65 2d 73 6f 72 74 | 20 41 5a 53 20 69 6e 74 | Re-sort| AZS int|
|00001f20| 6f 20 64 61 74 65 20 6f | 72 64 65 72 0d 09 b0 06 |o date o|rder....|
|00001f30| 20 3a 0d 09 ba 22 20 e3 | 4a 3d 31 b8 50 51 3a 44 | :..." .|J=1.PQ:D|
|00001f40| 41 54 45 28 4a 29 3d 61 | 25 21 28 4a 2a 38 29 2f |ATE(J)=a|%!(J*8)/|
|00001f50| 31 30 3a ed 0d 09 c4 36 | 20 e3 4a 3d 31 b8 50 51 |10:....6| .J=1.PQ|
|00001f60| 3a 53 50 28 4a 29 3d 41 | 5a 53 28 61 25 21 28 4a |:SP(J)=A|ZS(a%!(J|
|00001f70| 2a 38 2d 34 29 29 3a ed | 3a 41 5a 53 28 29 3d 53 |*8-4)):.|:AZS()=S|
|00001f80| 50 28 29 3a 53 50 28 29 | 3d 30 0d 09 ce 06 20 3a |P():SP()|=0.... :|
|00001f90| 0d 09 d8 31 20 e3 4a 3d | 31 b8 50 51 3a 61 25 21 |...1 .J=|1.PQ:a%!|
|00001fa0| 28 4a 2a 38 29 3d a8 28 | 50 48 28 4a 29 2a 31 45 |(J*8)=.(|PH(J)*1E|
|00001fb0| 36 29 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |6):a%!(J|*8-4)=J:|
|00001fc0| ed 0d 09 e2 0a 20 41 25 | 3d 61 25 0d 09 ec 09 20 |..... A%|=a%.... |
|00001fd0| 42 25 3d 31 0d 09 f6 0a | 20 43 25 3d 50 51 0d 0a |B%=1....| C%=PQ..|
|00001fe0| 00 47 20 d6 20 71 73 6f | 72 74 3a f4 20 20 20 20 |.G . qso|rt:. |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002010| 20 20 53 6f 72 74 20 66 | 6f 72 20 50 48 20 6d 61 | Sort f|or PH ma|
|00002020| 78 2f 6d 69 6e 0d 0a 0a | 06 20 3a 0d 0a 14 21 20 |x/min...|. :...! |
|00002030| e3 4a 3d 31 b8 50 51 3a | 50 48 28 4a 29 3d 61 25 |.J=1.PQ:|PH(J)=a%|
|00002040| 21 28 4a 2a 38 29 2f 31 | 45 36 3a ed 0d 0a 1e 1d |!(J*8)/1|E6:.....|
|00002050| 20 50 48 6d 61 78 3d 50 | 48 28 50 51 29 3a 50 48 | PHmax=P|H(PQ):PH|
|00002060| 6d 69 6e 3d 50 48 28 31 | 29 0d 0a 28 38 20 e3 4a |min=PH(1|)..(8 .J|
|00002070| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 44 41 54 45 |=1.PQ:SP|(J)=DATE|
|00002080| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 44 |(a%!(J*8|-4)):.:D|
|00002090| 41 54 45 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |ATE()=SP|():SP()=|
|000020a0| 30 0d 0a 32 06 20 3a 0d | 0a 3c 32 20 e3 4a 3d 31 |0..2. :.|.<2 .J=1|
|000020b0| b8 50 51 3a 61 25 21 28 | 4a 2a 38 29 3d a8 28 44 |.PQ:a%!(|J*8)=.(D|
|000020c0| 41 54 45 28 4a 29 2a 31 | 30 29 3a 61 25 21 28 4a |ATE(J)*1|0):a%!(J|
|000020d0| 2a 38 2d 34 29 3d 4a 3a | ed 0d 0a 46 0a 20 41 25 |*8-4)=J:|...F. A%|
|000020e0| 3d 61 25 0d 0a 50 09 20 | 42 25 3d 31 0d 0a 5a 0a |=a%..P. |B%=1..Z.|
|000020f0| 20 43 25 3d 50 51 0d 0a | 64 48 20 d6 20 71 73 6f | C%=PQ..|dH . qso|
|00002100| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002120| 20 20 20 20 52 65 2d 73 | 6f 72 74 20 50 48 20 69 | Re-s|ort PH i|
|00002130| 6e 74 6f 20 64 61 74 65 | 20 6f 72 64 65 72 0d 0a |nto date| order..|
|00002140| 6e 06 20 3a 0d 0a 78 22 | 20 e3 4a 3d 31 b8 50 51 |n. :..x"| .J=1.PQ|
|00002150| 3a 44 41 54 45 28 4a 29 | 3d 61 25 21 28 4a 2a 38 |:DATE(J)|=a%!(J*8|
|00002160| 29 2f 31 30 3a ed 0d 0a | 82 34 20 e3 4a 3d 31 b8 |)/10:...|.4 .J=1.|
|00002170| 50 51 3a 53 50 28 4a 29 | 3d 50 48 28 61 25 21 28 |PQ:SP(J)|=PH(a%!(|
|00002180| 4a 2a 38 2d 34 29 29 3a | ed 3a 50 48 28 29 3d 53 |J*8-4)):|.:PH()=S|
|00002190| 50 28 29 3a 53 50 28 29 | 3d 30 0d 0a 8c 06 20 3a |P():SP()|=0.... :|
|000021a0| 0d 0a 96 06 20 e1 0d 0a | a0 06 20 3a 0d 0a aa 11 |.... ...|.. :....|
|000021b0| 20 dd f2 63 68 61 72 74 | 73 65 74 75 70 0d 0a b4 | ..chart|setup...|
|000021c0| 06 20 db 0d 0a be 27 20 | eb 20 31 32 3a e6 20 37 |. ....' |. 12:. 7|
|000021d0| 3a 63 6f 6c 3d 37 36 3a | e7 a9 28 c3 28 50 51 29 |:col=76:|..(.(PQ)|
|000021e0| 29 3e 33 8c 63 6f 6c 3d | 37 34 0d 0a c8 6d 20 f1 |)>3.col=|74...m .|
|000021f0| 27 8a 32 29 3b 22 54 68 | 65 20 4d 6f 6f 6e 20 66 |'.2);"Th|e Moon f|
|00002200| 72 6f 6d 20 22 3b 4e 41 | 4d 45 24 3b 22 3a 41 6c |rom ";NA|ME$;":Al|
|00002210| 74 2f 41 7a 69 6d 75 74 | 68 20 26 20 50 68 61 73 |t/Azimut|h & Phas|
|00002220| 65 20 66 72 6f 6d 20 22 | 3b 44 31 24 3b 22 2f 22 |e from "|;D1$;"/"|
|00002230| 3b 4d 31 24 3b 22 2f 22 | 3b 59 31 24 3b 22 20 74 |;M1$;"/"|;Y1$;" t|
|00002240| 6f 20 22 3b 44 32 24 3b | 22 2f 22 3b 4d 32 24 3b |o ";D2$;|"/";M2$;|
|00002250| 22 2f 22 3b 59 32 24 0d | 0a d2 18 20 f1 8a 35 29 |"/";Y2$.|... ..5)|
|00002260| 3b 22 61 7a 69 6d 75 74 | 68 20 72 69 73 65 22 0d |;"azimut|h rise".|
|00002270| 0a dc 17 20 f1 8a 35 29 | 3b 22 61 7a 69 6d 75 74 |... ..5)|;"azimut|
|00002280| 68 20 73 65 74 22 0d 0a | e6 19 20 f1 8a 35 29 3b |h set"..|.. ..5);|
|00002290| 22 6c 75 6e 61 72 20 70 | 68 61 73 65 20 25 22 0d |"lunar p|hase %".|
|000022a0| 0a f0 26 20 f1 8a 35 29 | 3b 22 6c 75 6e 61 72 20 |..& ..5)|;"lunar |
|000022b0| 61 6c 74 69 74 75 64 65 | 20 61 74 20 6d 69 64 6e |altitude| at midn|
|000022c0| 69 67 68 74 22 0d 0a fa | 2a 20 f1 8a 34 2c a4 53 |ight"...|* ..4,.S|
|000022d0| 43 4c 28 50 6c 75 73 6d | 72 6b 29 29 3b 22 2b 22 |CL(Plusm|rk));"+"|
|000022e0| 3b 59 6d 61 78 61 76 3b | 22 20 64 65 67 2e 22 0d |;Ymaxav;|" deg.".|
|000022f0| 0b 04 27 20 f1 8a 35 2c | a4 53 43 4c 28 4d 69 6e |..' ..5,|.SCL(Min|
|00002300| 75 73 6d 72 6b 29 29 3b | 59 6d 69 6e 61 76 3b 22 |usmrk));|Yminav;"|
|00002310| 20 64 65 67 2e 22 0d 0b | 0e 16 20 e3 4e 3d 30 b8 | deg."..|.. .N=0.|
|00002320| 50 51 20 88 20 a8 28 50 | 51 2f 34 29 0d 0b 18 3a |PQ . .(P|Q/4)...:|
|00002330| 20 43 44 4e 3d a8 28 a4 | 43 44 4e 28 4e 2c 58 6d | CDN=.(.|CDN(N,Xm|
|00002340| 69 6e 2c 58 6d 61 78 2c | 31 32 32 35 29 2a 63 6f |in,Xmax,|1225)*co|
|00002350| 6c 2f 31 32 32 35 29 3a | e7 43 44 4e 3c 30 20 8c |l/1225):|.CDN<0 .|
|00002360| 20 43 44 4e 3d 30 0d 0b | 22 10 20 f1 8a 43 44 4e | CDN=0..|". ..CDN|
|00002370| 2c 33 30 29 3b 4e 0d 0b | 2c 06 20 ed 0d 0b 36 06 |,30);N..|,. ...6.|
|00002380| 20 e1 0d 0b 40 06 20 3a | 0d 0b 4a 0c 20 dd f2 73 | ...@. :|..J. ..s|
|00002390| 63 61 6c 65 0d 0b 54 1a | 20 e3 4a 3d 31 b8 38 3a |cale..T.| .J=1.8:|
|000023a0| 61 25 21 28 4a 2a 38 2d | 34 29 3d 4a 3a ed 0d 0b |a%!(J*8-|4)=J:...|
|000023b0| 5e 24 20 61 25 21 28 38 | 29 3d a8 28 94 28 42 45 |^$ a%!(8|)=.(.(BE|
|000023c0| 54 42 6d 61 78 29 29 2a | b4 28 42 45 54 42 6d 61 |TBmax))*|.(BETBma|
|000023d0| 78 29 0d 0b 68 25 20 61 | 25 21 28 31 36 29 3d a8 |x)..h% a|%!(16)=.|
|000023e0| 28 94 28 42 45 54 42 6d | 69 6e 29 29 2a b4 28 42 |(.(BETBm|in))*.(B|
|000023f0| 45 54 42 6d 69 6e 29 0d | 0b 72 23 20 61 25 21 28 |ETBmin).|.r# a%!(|
|00002400| 32 34 29 3d a8 28 94 28 | 41 5a 53 6d 61 78 29 29 |24)=.(.(|AZSmax))|
|00002410| 2a b4 28 41 5a 53 6d 61 | 78 29 0d 0b 7c 23 20 61 |*.(AZSma|x)..|# a|
|00002420| 25 21 28 33 32 29 3d a8 | 28 94 28 41 5a 53 6d 69 |%!(32)=.|(.(AZSmi|
|00002430| 6e 29 29 2a b4 28 41 5a | 53 6d 69 6e 29 0d 0b 86 |n))*.(AZ|Smin)...|
|00002440| 23 20 61 25 21 28 34 30 | 29 3d a8 28 94 28 41 5a |# a%!(40|)=.(.(AZ|
|00002450| 52 6d 61 78 29 29 2a b4 | 28 41 5a 52 6d 61 78 29 |Rmax))*.|(AZRmax)|
|00002460| 0d 0b 90 23 20 61 25 21 | 28 34 38 29 3d a8 28 94 |...# a%!|(48)=.(.|
|00002470| 28 41 5a 52 6d 69 6e 29 | 29 2a b4 28 41 5a 52 6d |(AZRmin)|)*.(AZRm|
|00002480| 69 6e 29 0d 0b 9a 25 20 | 61 25 21 28 35 36 29 3d |in)...% |a%!(56)=|
|00002490| a8 28 94 28 50 48 6d 61 | 78 2a 31 30 30 29 29 2a |.(.(PHma|x*100))*|
|000024a0| b4 28 50 48 6d 61 78 29 | 0d 0b a4 25 20 61 25 21 |.(PHmax)|...% a%!|
|000024b0| 28 36 34 29 3d a8 28 94 | 28 50 48 6d 69 6e 2a 31 |(64)=.(.|(PHmin*1|
|000024c0| 30 30 29 29 2a b4 28 50 | 48 6d 69 6e 29 0d 0b ae |00))*.(P|Hmin)...|
|000024d0| 06 20 3a 0d 0b b8 0a 20 | 41 25 3d 61 25 0d 0b c2 |. :.... |A%=a%...|
|000024e0| 09 20 42 25 3d 31 0d 0b | cc 09 20 43 25 3d 38 0d |. B%=1..|.. C%=8.|
|000024f0| 0b d6 0c 20 d6 20 71 73 | 6f 72 74 0d 0b e0 06 20 |... . qs|ort.... |
|00002500| 3a 0d 0b ea 24 20 59 6d | 61 78 3d a8 28 94 28 61 |:...$ Ym|ax=.(.(a|
|00002510| 25 21 28 36 34 29 29 2b | 31 29 2a b4 28 61 25 21 |%!(64))+|1)*.(a%!|
|00002520| 28 36 34 29 29 0d 0b f4 | 22 20 59 6d 69 6e 3d a8 |(64))...|" Ymin=.|
|00002530| 28 94 28 61 25 21 28 38 | 29 29 2b 31 29 2a b4 28 |(.(a%!(8|))+1)*.(|
|00002540| 61 25 21 28 38 29 29 0d | 0b fe 0c 20 58 6d 61 78 |a%!(8)).|... Xmax|
|00002550| 3d 50 51 0d 0c 08 0b 20 | 58 6d 69 6e 3d 31 0d 0c |=PQ.... |Xmin=1..|
|00002560| 12 1b 20 59 6d 61 78 61 | 76 3d a8 28 28 59 6d 61 |.. Ymaxa|v=.((Yma|
|00002570| 78 2f 32 29 2b 30 2e 35 | 29 0d 0c 1c 1b 20 59 6d |x/2)+0.5|).... Ym|
|00002580| 69 6e 61 76 3d a8 28 28 | 59 6d 69 6e 2f 32 29 2d |inav=.((|Ymin/2)-|
|00002590| 30 2e 35 29 0d 0c 26 20 | 20 59 7a 65 72 6f 3d a4 |0.5)..& | Yzero=.|
|000025a0| 43 44 4e 28 30 2c 59 6d | 69 6e 2c 59 6d 61 78 2c |CDN(0,Ym|in,Ymax,|
|000025b0| 38 35 30 29 0d 0c 30 31 | 20 50 6c 75 73 6d 72 6b |850)..01| Plusmrk|
|000025c0| 3d a8 28 28 94 28 38 35 | 30 2b 59 7a 65 72 6f 29 |=.((.(85|0+Yzero)|
|000025d0| 2f 32 29 2b 30 2e 35 29 | 2a b4 28 38 35 30 2b 59 |/2)+0.5)|*.(850+Y|
|000025e0| 7a 65 72 6f 29 0d 0c 3a | 30 20 4d 69 6e 75 73 6d |zero)..:|0 Minusm|
|000025f0| 72 6b 3d a8 28 28 94 28 | 59 7a 65 72 6f 2d 32 35 |rk=.((.(|Yzero-25|
|00002600| 29 2f 32 29 2b 30 2e 35 | 29 2a b4 28 59 7a 65 72 |)/2)+0.5|)*.(Yzer|
|00002610| 6f 2d 32 35 29 0d 0c 44 | 06 20 e1 0d 0c 4e 06 20 |o-25)..D|. ...N. |
|00002620| 3a 0d 0c 58 0d 20 dd f2 | 63 75 72 76 65 73 0d 0c |:..X. ..|curves..|
|00002630| 62 1a 20 86 20 32 35 2c | 59 7a 65 72 6f 2c 31 32 |b. . 25,|Yzero,12|
|00002640| 35 30 2c 59 7a 65 72 6f | 0d 0c 6c 1d 20 86 20 32 |50,Yzero|..l. . 2|
|00002650| 35 2c 38 32 35 2c 32 35 | 2c 32 35 3a df 20 31 32 |5,825,25|,25:. 12|
|00002660| 35 30 2c 32 35 0d 0c 76 | 36 20 86 20 32 35 2c 50 |50,25..v|6 . 25,P|
|00002670| 6c 75 73 6d 72 6b 2c 35 | 30 2c 50 6c 75 73 6d 72 |lusmrk,5|0,Plusmr|
|00002680| 6b 3a 86 20 32 35 2c 4d | 69 6e 75 73 6d 72 6b 2c |k:. 25,M|inusmrk,|
|00002690| 35 30 2c 4d 69 6e 75 73 | 6d 72 6b 0d 0c 80 17 20 |50,Minus|mrk.... |
|000026a0| e3 4e 3d 59 6d 69 6e 20 | b8 20 59 6d 61 78 20 88 |.N=Ymin |. Ymax .|
|000026b0| 20 34 0d 0c 8a 38 20 86 | 20 32 35 2c a4 43 44 4e | 4...8 .| 25,.CDN|
|000026c0| 28 4e 2c 59 6d 69 6e 2c | 59 6d 61 78 2c 38 35 30 |(N,Ymin,|Ymax,850|
|000026d0| 29 2c 33 30 2c a4 43 44 | 4e 28 4e 2c 59 6d 69 6e |),30,.CD|N(N,Ymin|
|000026e0| 2c 59 6d 61 78 2c 38 35 | 30 29 0d 0c 94 08 20 ed |,Ymax,85|0).... .|
|000026f0| 20 4e 0d 0c 9e 17 20 e3 | 4e 3d 30 20 b8 20 50 51 | N.... .|N=0 . PQ|
|00002700| 20 88 20 50 51 20 81 20 | 34 0d 0c a8 3a 20 86 20 | . PQ . |4...: . |
|00002710| a4 43 44 4e 28 4e 2c 58 | 6d 69 6e 2c 58 6d 61 78 |.CDN(N,X|min,Xmax|
|00002720| 2c 31 32 32 35 29 2c 32 | 35 2c a4 43 44 4e 28 4e |,1225),2|5,.CDN(N|
|00002730| 2c 58 6d 69 6e 2c 58 6d | 61 78 2c 31 32 32 35 29 |,Xmin,Xm|ax,1225)|
|00002740| 2c 31 30 0d 0c b2 08 20 | ed 20 4e 0d 0c bc 06 20 |,10.... |. N.... |
|00002750| 3a 0d 0c c6 18 20 e3 4e | 3d 30 20 b8 20 50 51 20 |:.... .N|=0 . PQ |
|00002760| 88 20 50 51 20 81 20 32 | 38 0d 0c d0 3a 20 86 20 |. PQ . 2|8...: . |
|00002770| a4 43 44 4e 28 4e 2c 58 | 6d 69 6e 2c 58 6d 61 78 |.CDN(N,X|min,Xmax|
|00002780| 2c 31 32 32 35 29 2c 32 | 35 2c a4 43 44 4e 28 4e |,1225),2|5,.CDN(N|
|00002790| 2c 58 6d 69 6e 2c 58 6d | 61 78 2c 31 32 32 35 29 |,Xmin,Xm|ax,1225)|
|000027a0| 2c 33 35 0d 0c da 08 20 | ed 20 4e 0d 0c e4 06 20 |,35.... |. N.... |
|000027b0| 3a 0d 0c ee 14 20 86 20 | 33 30 2c 38 34 35 2c 35 |:.... . |30,845,5|
|000027c0| 35 2c 38 34 35 0d 0c f8 | 25 20 ec 20 32 35 2c a4 |5,845...|% . 25,.|
|000027d0| 43 44 4e 28 42 45 54 42 | 28 31 29 2c 59 6d 69 6e |CDN(BETB|(1),Ymin|
|000027e0| 2c 59 6d 61 78 2c 38 35 | 30 29 0d 0d 02 0c 20 e3 |,Ymax,85|0).... .|
|000027f0| 4e 3d 32 b8 50 51 0d 0d | 0c 39 20 df 20 a4 43 44 |N=2.PQ..|.9 . .CD|
|00002800| 4e 28 4e 2c 58 6d 69 6e | 2c 58 6d 61 78 2c 31 32 |N(N,Xmin|,Xmax,12|
|00002810| 32 35 29 2c a4 43 44 4e | 28 42 45 54 42 28 4e 29 |25),.CDN|(BETB(N)|
|00002820| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00002830| 0d 16 08 20 ed 20 4e 0d | 0d 20 45 20 e6 20 31 3a |... . N.|. E . 1:|
|00002840| 86 20 33 30 2c 39 33 35 | 2c 35 35 2c 39 33 35 3a |. 30,935|,55,935:|
|00002850| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002860| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 69 72 73 | | Firs|
|00002870| 74 20 63 6f 6c 6f 75 72 | 20 62 61 72 0d 0d 2a 24 |t colour| bar..*$|
|00002880| 20 ec 20 32 35 2c a4 43 | 44 4e 28 41 5a 52 28 31 | . 25,.C|DN(AZR(1|
|00002890| 29 2c 59 6d 69 6e 2c 59 | 6d 61 78 2c 38 35 30 29 |),Ymin,Y|max,850)|
|000028a0| 0d 0d 34 0c 20 e3 4e 3d | 32 b8 50 51 0d 0d 3e 38 |..4. .N=|2.PQ..>8|
|000028b0| 20 df 20 a4 43 44 4e 28 | 4e 2c 58 6d 69 6e 2c 58 | . .CDN(|N,Xmin,X|
|000028c0| 6d 61 78 2c 31 32 32 35 | 29 2c a4 43 44 4e 28 41 |max,1225|),.CDN(A|
|000028d0| 5a 52 28 4e 29 2c 59 6d | 69 6e 2c 59 6d 61 78 2c |ZR(N),Ym|in,Ymax,|
|000028e0| 38 35 30 29 0d 0d 48 08 | 20 ed 20 4e 0d 0d 52 18 |850)..H.| . N..R.|
|000028f0| 20 e6 20 32 3a 86 20 33 | 30 2c 39 30 35 2c 35 35 | . 2:. 3|0,905,55|
|00002900| 2c 39 30 35 0d 0d 5c 24 | 20 ec 20 32 35 2c a4 43 |,905..\$| . 25,.C|
|00002910| 44 4e 28 41 5a 53 28 31 | 29 2c 59 6d 69 6e 2c 59 |DN(AZS(1|),Ymin,Y|
|00002920| 6d 61 78 2c 38 35 30 29 | 0d 0d 66 0c 20 e3 4e 3d |max,850)|..f. .N=|
|00002930| 32 b8 50 51 0d 0d 70 38 | 20 df 20 a4 43 44 4e 28 |2.PQ..p8| . .CDN(|
|00002940| 4e 2c 58 6d 69 6e 2c 58 | 6d 61 78 2c 31 32 32 35 |N,Xmin,X|max,1225|
|00002950| 29 2c a4 43 44 4e 28 41 | 5a 53 28 4e 29 2c 59 6d |),.CDN(A|ZS(N),Ym|
|00002960| 69 6e 2c 59 6d 61 78 2c | 38 35 30 29 0d 0d 7a 08 |in,Ymax,|850)..z.|
|00002970| 20 ed 20 4e 0d 0d 84 18 | 20 e6 20 33 3a 86 20 33 | . N....| . 3:. 3|
|00002980| 30 2c 38 37 35 2c 35 35 | 2c 38 37 35 0d 0d 8e 2a |0,875,55|,875...*|
|00002990| 20 ec 20 32 35 2c a4 43 | 44 4e 28 a8 28 50 48 28 | . 25,.C|DN(.(PH(|
|000029a0| 31 29 2a 31 30 30 29 2c | 59 6d 69 6e 2c 59 6d 61 |1)*100),|Ymin,Yma|
|000029b0| 78 2c 38 35 30 29 0d 0d | 98 0c 20 e3 4e 3d 32 b8 |x,850)..|.. .N=2.|
|000029c0| 50 51 0d 0d a2 3e 20 df | 20 a4 43 44 4e 28 4e 2c |PQ...> .| .CDN(N,|
|000029d0| 58 6d 69 6e 2c 58 6d 61 | 78 2c 31 32 32 35 29 2c |Xmin,Xma|x,1225),|
|000029e0| a4 43 44 4e 28 a8 28 50 | 48 28 4e 29 2a 31 30 30 |.CDN(.(P|H(N)*100|
|000029f0| 29 2c 59 6d 69 6e 2c 59 | 6d 61 78 2c 38 35 30 29 |),Ymin,Y|max,850)|
|00002a00| 0d 0d ac 08 20 ed 20 4e | 0d 0d b6 06 20 e1 0d 0d |.... . N|.... ...|
|00002a10| c0 06 20 3a 0d 0d ca 0e | 20 dd f2 53 74 72 69 6e |.. :....| ..Strin|
|00002a20| 67 73 0d 0d d4 0d 20 58 | 53 3d a8 28 58 53 29 0d |gs.... X|S=.(XS).|
|00002a30| 0d de 24 20 58 44 24 3d | c3 28 58 44 29 3a e7 20 |..$ XD$=|.(XD):. |
|00002a40| 58 44 3c 31 30 20 8c 20 | 58 44 24 3d 22 30 22 2b |XD<10 . |XD$="0"+|
|00002a50| 58 44 24 0d 0d e8 24 20 | 58 4d 24 3d c3 28 58 4d |XD$...$ |XM$=.(XM|
|00002a60| 29 3a e7 20 58 4d 3c 31 | 30 20 8c 20 58 4d 24 3d |):. XM<1|0 . XM$=|
|00002a70| 22 30 22 2b 58 4d 24 0d | 0d f2 24 20 58 53 24 3d |"0"+XM$.|..$ XS$=|
|00002a80| c3 28 58 53 29 3a e7 20 | 58 53 3c 31 30 20 8c 20 |.(XS):. |XS<10 . |
|00002a90| 58 53 24 3d 22 30 22 2b | 58 53 24 0d 0d fc 06 20 |XS$="0"+|XS$.... |
|00002aa0| e1 0d 0e 06 06 20 3a 0d | 0e 10 0d 20 dd f2 4d 69 |..... :.|... ..Mi|
|00002ab0| 6e 73 65 63 0d 0e 1a 1d | 20 e7 20 53 57 31 3d 31 |nsec....| . SW1=1|
|00002ac0| 20 f2 4d 69 6e 73 65 63 | 5f 49 6e 74 65 67 65 72 | .Minsec|_Integer|
|00002ad0| 73 0d 0e 24 1d 20 e7 20 | 53 57 31 3d 2d 31 20 f2 |s..$. . |SW1=-1 .|
|00002ae0| 4d 69 6e 73 65 63 5f 44 | 65 63 69 6d 61 6c 0d 0e |Minsec_D|ecimal..|
|00002af0| 2e 06 20 e1 0d 0e 38 06 | 20 3a 0d 0e 42 16 20 dd |.. ...8.| :..B. .|
|00002b00| f2 4d 69 6e 73 65 63 5f | 49 6e 74 65 67 65 72 73 |.Minsec_|Integers|
|00002b10| 0d 0e 4c 1d 20 53 4e 3d | b4 28 58 29 3a 58 50 3d |..L. SN=|.(X):XP=|
|00002b20| 94 28 58 29 3a 58 44 3d | a8 28 58 50 29 0d 0e 56 |.(X):XD=|.(XP)..V|
|00002b30| 19 20 41 3d 28 58 50 2d | 58 44 29 2a 36 30 3a 58 |. A=(XP-|XD)*60:X|
|00002b40| 4d 3d a8 28 41 29 0d 0e | 60 1c 20 58 53 3d a8 28 |M=.(A)..|`. XS=.(|
|00002b50| 28 41 2d 58 4d 29 2a 36 | 30 30 2b 30 2e 35 29 2f |(A-XM)*6|00+0.5)/|
|00002b60| 31 30 0d 0e 6a 0b 20 53 | 24 3d 22 2b 22 0d 0e 74 |10..j. S|$="+"..t|
|00002b70| 16 20 e7 20 53 4e 3d 2d | 31 20 20 8c 20 53 24 3d |. . SN=-|1 . S$=|
|00002b80| 22 2d 22 0d 0e 7e 06 20 | e1 0d 0e 88 06 20 3a 0d |"-"..~. |..... :.|
|00002b90| 0e 92 15 20 dd f2 4d 69 | 6e 73 65 63 5f 44 65 63 |... ..Mi|nsec_Dec|
|00002ba0| 69 6d 61 6c 0d 0e 9c 0a | 20 53 4e 3d 2b 31 0d 0e |imal....| SN=+1..|
|00002bb0| a6 21 20 e7 20 58 44 3c | 30 20 84 20 58 4d 3c 30 |.! . XD<|0 . XM<0|
|00002bc0| 20 84 20 58 53 3c 30 20 | 8c 20 53 4e 3d 2d 31 0d | . XS<0 |. SN=-1.|
|00002bd0| 0e b0 22 20 58 44 31 3d | 94 28 58 44 29 3a 58 4d |.." XD1=|.(XD):XM|
|00002be0| 31 3d 94 28 58 4d 29 3a | 58 53 31 3d 94 28 58 53 |1=.(XM):|XS1=.(XS|
|00002bf0| 29 0d 0e ba 23 20 58 3d | 28 28 28 28 58 53 31 2f |)...# X=|((((XS1/|
|00002c00| 36 30 29 2b 58 4d 31 29 | 2f 36 30 29 2b 58 44 31 |60)+XM1)|/60)+XD1|
|00002c10| 29 2a 53 4e 0d 0e c4 06 | 20 e1 0d 0e ce 06 20 3a |)*SN....| ..... :|
|00002c20| 0d 0e d8 0d 20 dd f2 4a | 75 6c 64 61 79 0d 0e e2 |.... ..J|ulday...|
|00002c30| 12 20 e7 20 46 4c 41 47 | 28 31 29 3d 31 20 e1 0d |. . FLAG|(1)=1 ..|
|00002c40| 0e ec 20 20 4d 4e 31 3d | 4d 4e 3a 59 52 31 3d 59 |.. MN1=|MN:YR1=Y|
|00002c50| 52 3a 46 4c 41 47 28 31 | 29 3d 31 3a 42 3d 30 0d |R:FLAG(1|)=1:B=0.|
|00002c60| 0e f6 15 20 e7 20 59 52 | 31 3c 30 20 8c 20 59 52 |... . YR|1<0 . YR|
|00002c70| 31 2b 3d 31 0d 0f 00 1c | 20 e7 20 4d 4e 3c 33 20 |1+=1....| . MN<3 |
|00002c80| 8c 20 4d 4e 31 2b 3d 31 | 32 3a 59 52 31 2d 3d 31 |. MN1+=1|2:YR1-=1|
|00002c90| 0d 0f 0a 15 20 e7 20 59 | 52 3c 31 35 38 32 20 8c |.... . Y|R<1582 .|
|00002ca0| 20 8d 54 72 4f 0d 0f 14 | 1d 20 e7 20 59 52 3d 31 | .TrO...|. . YR=1|
|00002cb0| 35 38 32 20 80 20 4d 4e | 3c 31 30 20 8c 20 8d 54 |582 . MN|<10 . .T|
|00002cc0| 72 4f 0d 0f 1e 25 20 e7 | 20 59 52 3d 31 35 38 32 |rO...% .| YR=1582|
|00002cd0| 20 80 20 4d 4e 3d 31 30 | 20 80 20 44 59 3c 31 35 | . MN=10| . DY<15|
|00002ce0| 20 8c 20 8d 54 72 4f 0d | 0f 28 1e 20 41 3d a8 28 | . .TrO.|.(. A=.(|
|00002cf0| 59 52 31 2f 31 30 30 29 | 3a 42 3d 32 2d 41 2b a8 |YR1/100)|:B=2-A+.|
|00002d00| 28 41 2f 34 29 0d 0f 32 | 13 20 e7 20 59 52 31 3c |(A/4)..2|. . YR1<|
|00002d10| 30 20 8c 20 8d 44 46 4f | 0d 0f 3c 22 20 43 3d a8 |0 . .DFO|..<" C=.|
|00002d20| 28 33 36 35 2e 32 35 2a | 59 52 31 29 2d 36 39 34 |(365.25*|YR1)-694|
|00002d30| 30 32 35 3a e5 20 8d 44 | 50 4f 0d 0f 46 25 20 43 |025:. .D|PO..F% C|
|00002d40| 3d a4 49 54 47 28 28 33 | 36 35 2e 32 35 2a 59 52 |=.ITG((3|65.25*YR|
|00002d50| 31 29 2d 30 2e 37 35 29 | 2d 36 39 34 30 32 35 0d |1)-0.75)|-694025.|
|00002d60| 0f 50 19 20 44 3d a8 28 | 33 30 2e 36 30 30 31 2a |.P. D=.(|30.6001*|
|00002d70| 28 4d 4e 31 2b 31 29 29 | 0d 0f 5a 15 20 44 4a 44 |(MN1+1))|..Z. DJD|
|00002d80| 3d 42 2b 43 2b 44 2b 44 | 59 2d 30 2e 35 0d 0f 64 |=B+C+D+D|Y-0.5..d|
|00002d90| 06 20 e1 0d 0f 6e 06 20 | 3a 0d 0f 78 0d 20 dd f2 |. ...n. |:..x. ..|
|00002da0| 43 61 6c 64 61 79 0d 0f | 82 14 20 e7 20 46 4c 41 |Calday..|.. . FLA|
|00002db0| 47 28 32 29 3d 31 20 8c | 20 e1 0d 0f 8c 1e 20 44 |G(2)=1 .| ..... D|
|00002dc0| 3d 44 4a 44 2b 30 2e 35 | 3a 49 3d a4 4c 49 46 28 |=DJD+0.5|:I=.LIF(|
|00002dd0| 44 29 3a 46 3d 44 2d 49 | 0d 0f 96 15 20 e7 20 46 |D):F=D-I|.... . F|
|00002de0| 3d 31 20 8c 20 46 3d 30 | 3a 49 2b 3d 31 0d 0f a0 |=1 . F=0|:I+=1...|
|00002df0| 1a 20 e7 20 49 20 3c 3d | 20 2d 31 31 35 38 36 30 |. . I <=| -115860|
|00002e00| 20 8c 20 8d 74 7e 4f 0d | 0f aa 29 20 41 3d a4 4c | . .t~O.|..) A=.L|
|00002e10| 49 46 28 28 49 2f 33 36 | 35 32 34 2e 32 35 29 2b |IF((I/36|524.25)+|
|00002e20| 39 2e 39 38 33 35 37 32 | 36 45 2d 31 29 2b 31 34 |9.983572|6E-1)+14|
|00002e30| 0d 0f b4 16 20 49 3d 49 | 2b 31 2b 41 2d a4 4c 49 |.... I=I|+1+A-.LI|
|00002e40| 46 28 41 2f 34 29 0d 0f | be 22 20 42 3d a4 4c 49 |F(A/4)..|." B=.LI|
|00002e50| 46 28 28 49 2f 33 36 35 | 2e 32 35 29 2b 38 2e 30 |F((I/365|.25)+8.0|
|00002e60| 32 36 30 31 45 2d 31 29 | 0d 0f c8 29 20 43 45 3d |2601E-1)|...) CE=|
|00002e70| 49 2d a4 4c 49 46 28 28 | 33 36 35 2e 32 35 2a 42 |I-.LIF((|365.25*B|
|00002e80| 29 2b 37 2e 35 30 30 30 | 31 45 2d 31 29 2b 34 31 |)+7.5000|1E-1)+41|
|00002e90| 36 0d 0f d2 1e 20 47 3d | a4 4c 49 46 28 43 45 2f |6.... G=|.LIF(CE/|
|00002ea0| 33 30 2e 36 30 30 31 29 | 3a 4d 4e 3d 47 2d 31 0d |30.6001)|:MN=G-1.|
|00002eb0| 0f dc 26 20 44 59 3d 43 | 45 2d a4 4c 49 46 28 33 |..& DY=C|E-.LIF(3|
|00002ec0| 30 2e 36 30 30 31 2a 47 | 29 2b 46 3a 59 52 3d 42 |0.6001*G|)+F:YR=B|
|00002ed0| 2b 31 38 39 39 0d 0f e6 | 17 20 e7 20 47 3e 31 33 |+1899...|. . G>13|
|00002ee0| 2e 35 20 8c 20 4d 4e 3d | 47 2d 31 33 0d 0f f0 19 |.5 . MN=|G-13....|
|00002ef0| 20 e7 20 4d 4e 3c 32 2e | 35 20 8c 20 59 52 3d 42 | . MN<2.|5 . YR=B|
|00002f00| 2b 31 39 30 30 0d 0f fa | 13 20 e7 20 59 52 3c 31 |+1900...|. . YR<1|
|00002f10| 20 8c 20 59 52 2d 3d 31 | 0d 10 04 0e 20 46 4c 41 | . YR-=1|.... FLA|
|00002f20| 47 28 32 29 3d 31 0d 10 | 0e 06 20 e1 0d 10 18 06 |G(2)=1..|.. .....|
|00002f30| 20 3a 0d 10 22 0c 20 dd | f2 47 74 69 6d 65 0d 10 | :..". .|.Gtime..|
|00002f40| 2c 12 20 58 4d 4e 3d 4d | 4e 3a 58 44 59 3d 44 59 |,. XMN=M|N:XDY=DY|
|00002f50| 0d 10 36 1f 20 46 4c 41 | 47 28 31 29 3d 30 3a f2 |..6. FLA|G(1)=0:.|
|00002f60| 4a 75 6c 64 61 79 3a 58 | 44 4a 44 3d 44 4a 44 0d |Julday:X|DJD=DJD.|
|00002f70| 10 40 18 20 4d 4e 3d 31 | 3a 44 59 3d 30 3a 46 4c |.@. MN=1|:DY=0:FL|
|00002f80| 41 47 28 31 29 3d 30 0d | 10 4a 18 20 f2 4a 75 6c |AG(1)=0.|.J. .Jul|
|00002f90| 64 61 79 3a 54 3d 44 4a | 44 2f 33 36 35 32 35 0d |day:T=DJ|D/36525.|
|00002fa0| 10 54 2b 20 52 3d 36 2e | 36 34 36 30 36 35 36 2b |.T+ R=6.|6460656+|
|00002fb0| 28 35 2e 31 32 36 32 45 | 2d 32 2b 28 54 2a 32 2e |(5.1262E|-2+(T*2.|
|00002fc0| 35 38 31 45 2d 35 29 29 | 2a 54 0d 10 5e 2a 20 52 |581E-5))|*T..^* R|
|00002fd0| 31 3d 32 34 30 30 2a 28 | 54 2d 28 28 59 52 2d 31 |1=2400*(|T-((YR-1|
|00002fe0| 39 30 30 29 2f 31 30 30 | 29 29 3a 42 3d 32 34 2d |900)/100|)):B=24-|
|00002ff0| 52 2d 52 31 0d 10 68 21 | 20 54 30 3d 28 28 58 44 |R-R1..h!| T0=((XD|
|00003000| 4a 44 2d 44 4a 44 29 2a | 36 2e 35 37 30 39 38 45 |JD-DJD)*|6.57098E|
|00003010| 2d 32 29 2d 42 0d 10 72 | 13 20 e7 20 53 57 32 3d |-2)-B..r|. . SW2=|
|00003020| 31 20 8c 20 8d 74 64 50 | 0d 10 7c 14 20 e7 20 54 |1 . .tdP|..|. . T|
|00003030| 30 3c 30 20 8c 20 54 30 | 2b 3d 32 34 0d 10 86 0f |0<0 . T0|+=24....|
|00003040| 20 47 54 4d 3d 54 49 4d | 2d 54 30 0d 10 90 16 20 | GTM=TIM|-T0.... |
|00003050| e7 20 47 54 4d 3c 30 20 | 8c 20 47 54 4d 2b 3d 32 |. GTM<0 |. GTM+=2|
|00003060| 34 0d 10 9a 22 20 47 54 | 4d 3d 47 54 4d 2a 39 2e |4..." GT|M=GTM*9.|
|00003070| 39 37 32 36 39 35 36 37 | 37 45 2d 31 3a e5 20 8d |97269567|7E-1:. .|
|00003080| 64 42 50 0d 10 a4 1d 20 | 47 54 4d 3d 28 54 49 4d |dBP.... |GTM=(TIM|
|00003090| 2a 31 2e 30 30 32 37 33 | 37 39 30 38 29 2b 54 30 |*1.00273|7908)+T0|
|000030a0| 0d 10 ae 17 20 e7 20 47 | 54 4d 3e 32 34 20 8c 20 |.... . G|TM>24 . |
|000030b0| 47 54 4d 2d 3d 32 34 0d | 10 b8 16 20 e7 20 47 54 |GTM-=24.|... . GT|
|000030c0| 4d 3c 30 20 8c 20 47 54 | 4d 2b 3d 32 34 0d 10 c2 |M<0 . GT|M+=24...|
|000030d0| 18 20 58 3d 47 54 4d 3a | 53 57 31 3d 31 3a f2 4d |. X=GTM:|SW1=1:.M|
|000030e0| 69 6e 73 65 63 0d 10 cc | 16 20 48 53 3d 58 44 3a |insec...|. HS=XD:|
|000030f0| 4d 53 3d 58 4d 3a 53 53 | 3d 58 53 0d 10 d6 1b 20 |MS=XM:SS|=XS.... |
|00003100| 4d 4e 3d 58 4d 4e 3a 44 | 59 3d 58 44 59 3a 44 4a |MN=XMN:D|Y=XDY:DJ|
|00003110| 44 3d 58 44 4a 44 0d 10 | e0 06 20 e1 0d 10 ea 06 |D=XDJD..|.. .....|
|00003120| 20 3a 0d 10 f4 0c 20 dd | f2 45 71 68 6f 72 0d 10 | :.... .|.Eqhor..|
|00003130| fe 17 20 e7 20 46 4c 41 | 47 28 34 29 3d 31 20 8c |.. . FLA|G(4)=1 .|
|00003140| 20 8d 54 5c 51 0d 11 08 | 1c 20 43 50 48 49 3d 9b | .T\Q...|. CPHI=.|
|00003150| 28 50 48 49 29 3a 53 50 | 48 49 3d b5 28 50 48 49 |(PHI):SP|HI=.(PHI|
|00003160| 29 0d 11 12 0e 20 46 4c | 41 47 28 34 29 3d 31 0d |).... FL|AG(4)=1.|
|00003170| 11 1c 14 20 53 59 3d b5 | 28 59 29 3a 43 59 3d 9b |... SY=.|(Y):CY=.|
|00003180| 28 59 29 0d 11 26 14 20 | 53 58 3d b5 28 58 29 3a |(Y)..&. |SX=.(X):|
|00003190| 43 58 3d 9b 28 58 29 0d | 11 30 1e 20 53 51 3d 28 |CX=.(X).|.0. SQ=(|
|000031a0| 53 59 2a 53 50 48 49 29 | 2b 28 43 59 2a 43 50 48 |SY*SPHI)|+(CY*CPH|
|000031b0| 49 2a 43 58 29 0d 11 3a | 21 20 51 3d a4 41 53 4e |I*CX)..:|! Q=.ASN|
|000031c0| 28 53 51 29 3a 43 51 3d | 9b 28 51 29 3a 41 3d 43 |(SQ):CQ=|.(Q):A=C|
|000031d0| 50 48 49 2a 43 51 0d 11 | 44 18 20 e7 20 41 3c 31 |PHI*CQ..|D. . A<1|
|000031e0| 45 2d 32 30 20 8c 20 41 | 3d 31 45 2d 32 30 0d 11 |E-20 . A|=1E-20..|
|000031f0| 4e 23 20 43 50 3d 28 53 | 59 2d 28 53 50 48 49 2a |N# CP=(S|Y-(SPHI*|
|00003200| 53 51 29 29 2f 41 3a 50 | 3d a4 41 43 53 28 43 50 |SQ))/A:P|=.ACS(CP|
|00003210| 29 0d 11 58 15 20 e7 20 | 53 58 3e 30 20 8c 20 50 |)..X. . |SX>0 . P|
|00003220| 3d 54 50 49 2d 50 0d 11 | 62 06 20 e1 0d 11 6c 06 |=TPI-P..|b. ...l.|
|00003230| 20 3a 0d 11 76 0c 20 dd | f2 48 72 61 6e 67 0d 11 | :..v. .|.Hrang..|
|00003240| 80 16 20 4c 53 54 3d 47 | 53 54 2b 28 4c 4f 4e 47 |.. LST=G|ST+(LONG|
|00003250| 2f 31 35 29 0d 11 8a 1a | 20 e7 20 4c 53 54 3e 32 |/15)....| . LST>2|
|00003260| 34 20 8c 20 4c 53 54 3d | 4c 53 54 2d 32 34 0d 11 |4 . LST=|LST-24..|
|00003270| 94 19 20 e7 20 4c 53 54 | 3c 30 20 8c 20 4c 53 54 |.. . LST|<0 . LST|
|00003280| 3d 4c 53 54 2b 32 34 0d | 11 9e 0c 20 50 3d 4c 53 |=LST+24.|... P=LS|
|00003290| 54 2d 58 0d 11 a8 13 20 | e7 20 50 3c 30 20 8c 20 |T-X.... |. P<0 . |
|000032a0| 50 3d 50 2b 32 34 0d 11 | b2 06 20 e1 0d 11 bc 06 |P=P+24..|.. .....|
|000032b0| 20 3a 0d 11 c6 0c 20 dd | f2 4f 62 6c 69 71 0d 11 | :.... .|.Obliq..|
|000032c0| d0 12 20 e7 20 46 4c 41 | 47 28 35 29 3d 31 20 e1 |.. . FLA|G(5)=1 .|
|000032d0| 0d 11 da 0e 20 46 4c 41 | 47 28 35 29 3d 31 0d 11 |.... FLA|G(5)=1..|
|000032e0| e4 18 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|000032f0| 2f 33 36 35 32 35 0d 11 | ee 2b 20 43 3d 28 28 28 |/36525..|.+ C=(((|
|00003300| 2d 31 2e 38 31 45 2d 33 | 2a 54 29 2b 35 2e 39 45 |-1.81E-3|*T)+5.9E|
|00003310| 2d 33 29 2a 54 2b 34 2e | 36 38 34 35 45 31 29 2a |-3)*T+4.|6845E1)*|
|00003320| 54 0d 11 f8 1f 20 45 50 | 53 3d 32 2e 33 34 35 32 |T.... EP|S=2.3452|
|00003330| 32 39 34 34 34 45 31 2d | 28 43 2f 33 36 30 30 29 |29444E1-|(C/3600)|
|00003340| 0d 12 02 1c 20 45 50 53 | 52 3d 45 50 53 2a 31 2e |.... EPS|R=EPS*1.|
|00003350| 37 35 34 33 32 39 32 35 | 32 45 2d 32 0d 12 0c 06 |75432925|2E-2....|
|00003360| 20 e1 0d 12 16 06 20 3a | 0d 12 20 0c 20 dd f2 45 | ..... :|.. . ..E|
|00003370| 71 65 63 6c 0d 12 2a 17 | 20 e7 20 46 4c 41 47 28 |qecl..*.| . FLAG(|
|00003380| 37 29 3d 31 20 8c 20 8d | 44 5c 52 0d 12 34 0e 20 |7)=1 . .|D\R..4. |
|00003390| 46 4c 41 47 28 37 29 3d | 31 0d 12 3e 19 20 e7 20 |FLAG(7)=|1..>. . |
|000033a0| 46 4c 41 47 28 36 29 3d | 30 20 8c 20 44 45 50 53 |FLAG(6)=|0 . DEPS|
|000033b0| 3d 30 0d 12 48 1f 20 f2 | 4f 62 6c 69 71 3a 45 50 |=0..H. .|Obliq:EP|
|000033c0| 53 31 3d a4 52 41 44 28 | 45 50 53 2b 44 45 50 53 |S1=.RAD(|EPS+DEPS|
|000033d0| 29 0d 12 52 1e 20 53 45 | 50 53 3d b5 28 45 50 53 |)..R. SE|PS=.(EPS|
|000033e0| 31 29 3a 43 45 50 53 3d | 9b 28 45 50 53 31 29 0d |1):CEPS=|.(EPS1).|
|000033f0| 12 5c 14 20 43 59 3d 9b | 28 59 29 3a 53 59 3d b5 |.\. CY=.|(Y):SY=.|
|00003400| 28 59 29 0d 12 66 1d 20 | e7 20 94 28 43 59 29 3c |(Y)..f. |. .(CY)<|
|00003410| 31 45 2d 32 30 20 8c 20 | 43 59 3d 31 45 2d 32 30 |1E-20 . |CY=1E-20|
|00003420| 0d 12 70 1d 20 54 59 3d | 53 59 2f 43 59 3a 43 58 |..p. TY=|SY/CY:CX|
|00003430| 3d 9b 28 58 29 3a 53 58 | 3d b5 28 58 29 0d 12 7a |=.(X):SX|=.(X)..z|
|00003440| 22 20 53 51 3d 28 53 59 | 2a 43 45 50 53 29 2d 28 |" SQ=(SY|*CEPS)-(|
|00003450| 43 59 2a 53 45 50 53 2a | 53 58 2a 53 57 33 29 0d |CY*SEPS*|SX*SW3).|
|00003460| 12 84 29 20 51 3d a4 41 | 53 4e 28 53 51 29 3a 41 |..) Q=.A|SN(SQ):A|
|00003470| 3d 28 53 58 2a 43 45 50 | 53 29 2b 28 54 59 2a 53 |=(SX*CEP|S)+(TY*S|
|00003480| 45 50 53 2a 53 57 33 29 | 0d 12 8e 0e 20 50 3d 99 |EPS*SW3)|.... P=.|
|00003490| 28 41 2f 43 58 29 0d 12 | 98 13 20 e7 20 43 58 3c |(A/CX)..|.. . CX<|
|000034a0| 30 20 8c 20 50 3d 50 2b | af 0d 12 a2 16 20 e7 20 |0 . P=P+|..... . |
|000034b0| 50 3e 54 50 49 20 8c 20 | 50 3d 50 2d 54 50 49 0d |P>TPI . |P=P-TPI.|
|000034c0| 12 ac 14 20 e7 20 50 3c | 30 20 8c 20 50 3d 50 2b |... . P<|0 . P=P+|
|000034d0| 54 50 49 0d 12 b6 06 20 | e1 0d 12 c0 06 20 3a 0d |TPI.... |..... :.|
|000034e0| 12 ca 0c 20 dd f2 4e 75 | 74 61 74 0d 12 d4 12 20 |... ..Nu|tat.... |
|000034f0| e7 20 46 4c 41 47 28 36 | 29 3d 31 20 e1 0d 12 de |. FLAG(6|)=1 ....|
|00003500| 18 20 46 4c 41 47 28 36 | 29 3d 31 3a 46 4c 41 47 |. FLAG(6|)=1:FLAG|
|00003510| 28 37 29 3d 30 0d 12 e8 | 1f 20 f2 4a 75 6c 64 61 |(7)=0...|. .Julda|
|00003520| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 3a 54 32 |y:T=DJD/|36525:T2|
|00003530| 3d 54 2a 54 0d 12 f2 25 | 20 41 3d 31 2e 30 30 30 |=T*T...%| A=1.000|
|00003540| 30 32 31 33 35 38 45 32 | 2a 54 3a 42 3d 33 36 30 |021358E2|*T:B=360|
|00003550| 2a 28 41 2d a8 28 41 29 | 29 0d 12 fc 1f 20 4c 53 |*(A-.(A)|).... LS|
|00003560| 3d 32 2e 37 39 36 39 36 | 37 45 32 2b 33 2e 30 33 |=2.79696|7E2+3.03|
|00003570| 45 2d 34 2a 54 32 2b 42 | 0d 13 06 25 20 41 3d 31 |E-4*T2+B|...% A=1|
|00003580| 2e 33 33 36 38 35 35 32 | 33 31 45 33 2a 54 3a 42 |.3368552|31E3*T:B|
|00003590| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 13 10 |=360*(A-|.(A))...|
|000035a0| 20 20 4c 44 3d 32 2e 37 | 30 34 33 34 32 45 32 2d | LD=2.7|04342E2-|
|000035b0| 31 2e 31 33 33 45 2d 33 | 2a 54 32 2b 42 0d 13 1a |1.133E-3|*T2+B...|
|000035c0| 25 20 41 3d 39 2e 39 39 | 39 37 33 36 30 35 36 45 |% A=9.99|9736056E|
|000035d0| 31 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |1*T:B=36|0*(A-.(A|
|000035e0| 29 29 0d 13 24 1e 20 4d | 53 3d 33 2e 35 38 34 37 |))..$. M|S=3.5847|
|000035f0| 35 38 45 32 2d 31 2e 35 | 45 2d 34 2a 54 32 2b 42 |58E2-1.5|E-4*T2+B|
|00003600| 0d 13 2e 25 20 41 3d 31 | 2e 33 32 35 35 35 32 33 |...% A=1|.3255523|
|00003610| 35 39 45 33 2a 54 3a 42 | 3d 33 36 30 2a 28 41 2d |59E3*T:B|=360*(A-|
|00003620| a8 28 41 29 29 0d 13 38 | 20 20 4d 44 3d 32 2e 39 |.(A))..8| MD=2.9|
|00003630| 36 31 30 34 36 45 32 2b | 39 2e 31 39 32 45 2d 33 |61046E2+|9.192E-3|
|00003640| 2a 54 32 2b 42 0d 13 42 | 23 20 41 3d 35 2e 33 37 |*T2+B..B|# A=5.37|
|00003650| 32 36 31 36 36 36 37 2a | 54 3a 42 3d 33 36 30 2a |2616667*|T:B=360*|
|00003660| 28 41 2d a8 28 41 29 29 | 0d 13 4c 20 20 4e 4d 3d |(A-.(A))|..L NM=|
|00003670| 32 2e 35 39 31 38 33 33 | 45 32 2b 32 2e 30 37 38 |2.591833|E2+2.078|
|00003680| 45 2d 33 2a 54 32 2d 42 | 0d 13 56 1f 20 54 4c 53 |E-3*T2-B|..V. TLS|
|00003690| 3d 32 2a a4 52 41 44 28 | 4c 53 29 3a 4e 4d 3d a4 |=2*.RAD(|LS):NM=.|
|000036a0| 52 41 44 28 4e 4d 29 0d | 13 60 1f 20 54 4e 4d 3d |RAD(NM).|.`. TNM=|
|000036b0| 32 2a a4 52 41 44 28 4e | 4d 29 3a 4d 53 3d a4 52 |2*.RAD(N|M):MS=.R|
|000036c0| 41 44 28 4d 53 29 0d 13 | 6a 1f 20 54 4c 44 3d 32 |AD(MS)..|j. TLD=2|
|000036d0| 2a a4 52 41 44 28 4c 44 | 29 3a 4d 44 3d a4 52 41 |*.RAD(LD|):MD=.RA|
|000036e0| 44 28 4d 44 29 0d 13 74 | da 20 44 50 53 49 3d 28 |D(MD)..t|. DPSI=(|
|000036f0| 2d 31 37 2e 32 33 32 37 | 2d 31 2e 37 33 37 45 2d |-17.2327|-1.737E-|
|00003700| 32 2a 54 29 2a b5 28 4e | 4d 29 2b 28 2d 31 2e 32 |2*T)*.(N|M)+(-1.2|
|00003710| 37 32 39 2d 31 2e 33 45 | 2d 34 2a 54 29 2a b5 28 |729-1.3E|-4*T)*.(|
|00003720| 54 4c 53 29 2b 32 2e 30 | 38 38 45 2d 31 2a b5 28 |TLS)+2.0|88E-1*.(|
|00003730| 54 4e 4d 29 2d 32 2e 30 | 33 37 45 2d 31 2a b5 28 |TNM)-2.0|37E-1*.(|
|00003740| 54 4c 44 29 2b 28 31 2e | 32 36 31 45 2d 31 2d 33 |TLD)+(1.|261E-1-3|
|00003750| 2e 31 45 2d 34 2a 54 29 | 2a b5 28 4d 53 29 2b 36 |.1E-4*T)|*.(MS)+6|
|00003760| 2e 37 35 45 2d 32 2a b5 | 28 4d 44 29 2d 28 34 2e |.75E-2*.|(MD)-(4.|
|00003770| 39 37 45 2d 32 2d 31 2e | 32 45 2d 34 2a 54 29 2a |97E-2-1.|2E-4*T)*|
|00003780| b5 28 54 4c 53 2b 4d 53 | 29 2d 33 2e 34 32 45 2d |.(TLS+MS|)-3.42E-|
|00003790| 32 2a b5 28 54 4c 44 2d | 4e 4d 29 2d 32 2e 36 31 |2*.(TLD-|NM)-2.61|
|000037a0| 45 2d 32 2a b5 28 54 4c | 44 2b 4d 44 29 2b 32 2e |E-2*.(TL|D+MD)+2.|
|000037b0| 31 34 45 2d 32 2a b5 28 | 54 4c 53 2d 4d 53 29 0d |14E-2*.(|TLS-MS).|
|000037c0| 13 7e 48 20 44 50 53 49 | 3d 44 50 53 49 2d 31 2e |.~H DPSI|=DPSI-1.|
|000037d0| 34 39 45 2d 32 2a b5 28 | 54 4c 53 2d 54 4c 44 2b |49E-2*.(|TLS-TLD+|
|000037e0| 4d 44 29 2b 31 2e 32 34 | 45 2d 32 2a b5 28 54 4c |MD)+1.24|E-2*.(TL|
|000037f0| 53 2d 4e 4d 29 2b 31 2e | 31 34 45 2d 32 2a b5 28 |S-NM)+1.|14E-2*.(|
|00003800| 54 4c 44 2d 4d 44 29 0d | 13 88 b0 20 44 45 50 53 |TLD-MD).|... DEPS|
|00003810| 3d 28 39 2e 32 31 2b 39 | 2e 31 45 2d 34 2a 54 29 |=(9.21+9|.1E-4*T)|
|00003820| 2a 9b 28 4e 4d 29 2b 28 | 35 2e 35 32 32 45 2d 31 |*.(NM)+(|5.522E-1|
|00003830| 2d 32 2e 39 45 2d 34 2a | 54 29 2a 9b 28 54 4c 53 |-2.9E-4*|T)*.(TLS|
|00003840| 29 2d 39 2e 30 34 45 2d | 32 2a 9b 28 54 4e 4d 29 |)-9.04E-|2*.(TNM)|
|00003850| 2b 38 2e 38 34 45 2d 32 | 2a 9b 28 54 4c 44 29 2b |+8.84E-2|*.(TLD)+|
|00003860| 32 2e 31 36 45 2d 32 2a | 9b 28 54 4c 53 2b 4d 53 |2.16E-2*|.(TLS+MS|
|00003870| 29 2b 31 2e 38 33 45 2d | 32 2a 9b 28 54 4c 44 2d |)+1.83E-|2*.(TLD-|
|00003880| 4e 4d 29 2b 31 2e 31 33 | 45 2d 32 2a 9b 28 54 4c |NM)+1.13|E-2*.(TL|
|00003890| 44 2b 4d 44 29 2d 39 2e | 33 45 2d 33 2a 9b 28 54 |D+MD)-9.|3E-3*.(T|
|000038a0| 4c 53 2d 4d 53 29 2d 36 | 2e 36 45 2d 33 2a 9b 28 |LS-MS)-6|.6E-3*.(|
|000038b0| 54 4c 53 2d 4e 4d 29 0d | 13 92 22 20 44 50 53 49 |TLS-NM).|.." DPSI|
|000038c0| 3d 44 50 53 49 2f 33 36 | 30 30 3a 44 45 50 53 3d |=DPSI/36|00:DEPS=|
|000038d0| 44 45 50 53 2f 33 36 30 | 30 0d 13 9c 06 20 e1 0d |DEPS/360|0.... ..|
|000038e0| 13 a6 06 20 3a 0d 13 b0 | 0e 20 dd f2 41 6e 6f 6d |... :...|. ..Anom|
|000038f0| 61 6c 79 0d 13 ba 1c 20 | 4d 3d 4d 41 2d 54 50 49 |aly.... |M=MA-TPI|
|00003900| 2a a8 28 4d 41 2f 54 50 | 49 29 3a 45 41 3d 4d 0d |*.(MA/TP|I):EA=M.|
|00003910| 13 c4 17 20 44 4c 41 3d | 45 41 2d 28 53 2a b5 28 |... DLA=|EA-(S*.(|
|00003920| 45 41 29 29 2d 4d 0d 13 | ce 18 20 e7 20 94 28 44 |EA))-M..|.. . .(D|
|00003930| 4c 41 29 3c 31 45 2d 36 | 20 8c 8d 64 6c 53 0d 13 |LA)<1E-6| ..dlS..|
|00003940| d8 1a 20 44 4c 41 3d 44 | 4c 41 2f 28 31 2d 28 53 |.. DLA=D|LA/(1-(S|
|00003950| 2a 9b 28 45 41 29 29 29 | 0d 13 e2 15 20 45 41 3d |*.(EA)))|.... EA=|
|00003960| 45 41 2d 44 4c 41 3a e5 | 20 8d 64 44 53 0d 13 ec |EA-DLA:.| .dDS...|
|00003970| 20 20 54 4e 55 32 3d b6 | 28 28 31 2b 53 29 2f 28 | TNU2=.|((1+S)/(|
|00003980| 31 2d 53 29 29 2a b7 28 | 45 41 2f 32 29 0d 13 f6 |1-S))*.(|EA/2)...|
|00003990| 11 20 4e 55 3d 32 2a 99 | 28 54 4e 55 32 29 0d 14 |. NU=2*.|(TNU2)..|
|000039a0| 00 06 20 e1 0d 14 0a 06 | 20 3a 0d 14 14 0a 20 dd |.. .....| :.... .|
|000039b0| f2 53 75 6e 0d 14 1e 1f | 20 f2 4a 75 6c 64 61 79 |.Sun....| .Julday|
|000039c0| 3a 54 3d 44 4a 44 2f 33 | 36 35 32 35 3a 54 32 3d |:T=DJD/3|6525:T2=|
|000039d0| 54 2a 54 0d 14 28 25 20 | 41 3d 31 2e 30 30 30 30 |T*T..(% |A=1.0000|
|000039e0| 32 31 33 35 39 45 32 2a | 54 3a 42 3d 33 36 30 2a |21359E2*|T:B=360*|
|000039f0| 28 41 2d a8 28 41 29 29 | 0d 14 32 21 20 4c 53 3d |(A-.(A))|..2! LS=|
|00003a00| 32 2e 37 39 36 39 36 36 | 38 45 32 2b 33 2e 30 32 |2.796966|8E2+3.02|
|00003a10| 35 45 2d 34 2a 54 32 2b | 42 0d 14 3c 25 20 41 3d |5E-4*T2+|B..<% A=|
|00003a20| 39 2e 39 39 39 37 33 36 | 30 34 32 45 31 2a 54 3a |9.999736|042E1*T:|
|00003a30| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 14 |B=360*(A|-.(A))..|
|00003a40| 46 2a 20 4d 53 3d 33 2e | 35 38 34 37 35 38 33 45 |F* MS=3.|5847583E|
|00003a50| 32 2d 28 31 2e 35 45 2d | 34 2b 33 2e 33 45 2d 36 |2-(1.5E-|4+3.3E-6|
|00003a60| 2a 54 29 2a 54 32 2b 42 | 0d 14 50 27 20 53 3d 31 |*T)*T2+B|..P' S=1|
|00003a70| 2e 36 37 35 31 30 34 45 | 2d 32 2d 34 2e 31 38 45 |.675104E|-2-4.18E|
|00003a80| 2d 35 2a 54 2d 31 2e 32 | 36 45 2d 37 2a 54 32 0d |-5*T-1.2|6E-7*T2.|
|00003a90| 14 5a 19 20 4d 41 3d a4 | 52 41 44 28 4d 53 29 3a |.Z. MA=.|RAD(MS):|
|00003aa0| f2 41 6e 6f 6d 61 6c 79 | 0d 14 64 25 20 41 3d 36 |.Anomaly|..d% A=6|
|00003ab0| 2e 32 35 35 32 30 39 34 | 37 32 45 31 2a 54 3a 42 |.2552094|72E1*T:B|
|00003ac0| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 14 6e |=360*(A-|.(A))..n|
|00003ad0| 16 20 41 31 3d a4 52 41 | 44 28 31 35 33 2e 32 33 |. A1=.RA|D(153.23|
|00003ae0| 2b 42 29 0d 14 78 25 20 | 41 3d 31 2e 32 35 31 30 |+B)..x% |A=1.2510|
|00003af0| 34 31 38 39 34 45 32 2a | 54 3a 42 3d 33 36 30 2a |41894E2*|T:B=360*|
|00003b00| 28 41 2d a8 28 41 29 29 | 0d 14 82 16 20 42 31 3d |(A-.(A))|.... B1=|
|00003b10| a4 52 41 44 28 32 31 36 | 2e 35 37 2b 42 29 0d 14 |.RAD(216|.57+B)..|
|00003b20| 8c 25 20 41 3d 39 2e 31 | 35 36 37 36 36 30 32 38 |.% A=9.1|56766028|
|00003b30| 45 31 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E1*T:B=3|60*(A-.(|
|00003b40| 41 29 29 0d 14 96 16 20 | 43 31 3d a4 52 41 44 28 |A)).... |C1=.RAD(|
|00003b50| 33 31 32 2e 36 39 2b 42 | 29 0d 14 a0 25 20 41 3d |312.69+B|)...% A=|
|00003b60| 31 2e 32 33 36 38 35 33 | 30 39 35 45 33 2a 54 3a |1.236853|095E3*T:|
|00003b70| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 14 |B=360*(A|-.(A))..|
|00003b80| aa 21 20 44 31 3d a4 52 | 41 44 28 33 35 30 2e 37 |.! D1=.R|AD(350.7|
|00003b90| 34 2d 31 2e 34 34 45 2d | 33 2a 54 32 2b 42 29 0d |4-1.44E-|3*T2+B).|
|00003ba0| 14 b4 1b 20 45 31 3d a4 | 52 41 44 28 32 33 31 2e |... E1=.|RAD(231.|
|00003bb0| 31 39 2b 32 30 2e 32 2a | 54 29 0d 14 be 25 20 41 |19+20.2*|T)...% A|
|00003bc0| 3d 31 2e 38 33 31 33 35 | 33 32 30 38 45 32 2a 54 |=1.83135|3208E2*T|
|00003bd0| 3a 42 3d 33 36 30 2a 28 | 41 2d a8 28 41 29 29 0d |:B=360*(|A-.(A)).|
|00003be0| 14 c8 15 20 48 31 3d a4 | 52 41 44 28 33 35 33 2e |... H1=.|RAD(353.|
|00003bf0| 34 2b 42 29 0d 14 d2 4a | 20 44 4c 3d 31 2e 33 34 |4+B)...J| DL=1.34|
|00003c00| 45 2d 33 2a 9b 28 41 31 | 29 2b 31 2e 35 34 45 2d |E-3*.(A1|)+1.54E-|
|00003c10| 33 2a 9b 28 42 31 29 2b | 32 45 2d 33 2a 9b 28 43 |3*.(B1)+|2E-3*.(C|
|00003c20| 31 29 2b 31 2e 37 39 45 | 2d 33 2a b5 28 44 31 29 |1)+1.79E|-3*.(D1)|
|00003c30| 2b 31 2e 37 38 45 2d 33 | 2a b5 28 45 31 29 0d 14 |+1.78E-3|*.(E1)..|
|00003c40| dc 50 20 44 52 3d 35 2e | 34 33 45 2d 36 2a b5 28 |.P DR=5.|43E-6*.(|
|00003c50| 41 31 29 2b 31 2e 35 37 | 35 45 2d 35 2a b5 28 42 |A1)+1.57|5E-5*.(B|
|00003c60| 31 29 2b 31 2e 36 32 37 | 45 2d 35 2a b5 28 43 31 |1)+1.627|E-5*.(C1|
|00003c70| 29 2b 33 2e 30 37 36 45 | 2d 35 2a 9b 28 44 31 29 |)+3.076E|-5*.(D1)|
|00003c80| 2b 39 2e 32 37 45 2d 36 | 2a b5 28 48 31 29 0d 14 |+9.27E-6|*.(H1)..|
|00003c90| e6 1a 20 4c 53 4e 3d 4e | 55 2b a4 52 41 44 28 4c |.. LSN=N|U+.RAD(L|
|00003ca0| 53 2d 4d 53 2b 44 4c 29 | 0d 14 f0 21 20 52 53 4e |S-MS+DL)|...! RSN|
|00003cb0| 3d 31 2e 30 30 30 30 30 | 30 32 2a 28 31 2d 53 2a |=1.00000|02*(1-S*|
|00003cc0| 9b 28 45 41 29 29 2b 44 | 52 0d 14 fa 20 20 e7 20 |.(EA))+D|R... . |
|00003cd0| 4c 53 4e 3c 30 20 8c 20 | 4c 53 4e 3d 4c 53 4e 2b |LSN<0 . |LSN=LSN+|
|00003ce0| 54 50 49 3a e5 8d 64 7a | 54 0d 15 04 23 20 e7 20 |TPI:..dz|T...# . |
|00003cf0| 4c 53 4e 3e 54 50 49 20 | 8c 20 4c 53 4e 3d 4c 53 |LSN>TPI |. LSN=LS|
|00003d00| 4e 2d 54 50 49 3a e5 20 | 8d 54 44 55 0d 15 0e 06 |N-TPI:. |.TDU....|
|00003d10| 20 e1 0d 15 18 06 20 3a | 0d 15 22 0b 20 dd f2 4d | ..... :|..". ..M|
|00003d20| 6f 6f 6e 0d 15 2c 1f 20 | f2 4a 75 6c 64 61 79 3a |oon..,. |.Julday:|
|00003d30| 54 3d 44 4a 44 2f 33 36 | 35 32 35 3a 54 32 3d 54 |T=DJD/36|525:T2=T|
|00003d40| 2a 54 0d 15 36 26 20 4d | 31 3d 32 2e 37 33 32 31 |*T..6& M|1=2.7321|
|00003d50| 35 38 32 31 33 45 31 3a | 4d 32 3d 33 2e 36 35 32 |58213E1:|M2=3.652|
|00003d60| 35 39 36 34 30 37 45 32 | 0d 15 40 26 20 4d 33 3d |596407E2|..@& M3=|
|00003d70| 32 2e 37 35 35 34 35 35 | 30 39 34 45 31 3a 4d 34 |2.755455|094E1:M4|
|00003d80| 3d 32 2e 39 35 33 30 35 | 38 38 36 38 45 31 0d 15 |=2.95305|8868E1..|
|00003d90| 4a 26 20 4d 35 3d 32 2e | 37 32 31 32 32 32 30 33 |J& M5=2.|72122203|
|00003da0| 39 45 31 3a 4d 36 3d 36 | 2e 37 39 38 33 36 33 33 |9E1:M6=6|.7983633|
|00003db0| 30 37 45 33 0d 15 54 22 | 20 4d 31 3d 44 4a 44 2f |07E3..T"| M1=DJD/|
|00003dc0| 4d 31 3a 4d 32 3d 44 4a | 44 2f 4d 32 3a 4d 33 3d |M1:M2=DJ|D/M2:M3=|
|00003dd0| 44 4a 44 2f 4d 33 0d 15 | 5e 22 20 4d 34 3d 44 4a |DJD/M3..|^" M4=DJ|
|00003de0| 44 2f 4d 34 3a 4d 35 3d | 44 4a 44 2f 4d 35 3a 4d |D/M4:M5=|DJD/M5:M|
|00003df0| 36 3d 44 4a 44 2f 4d 36 | 0d 15 68 28 20 4d 31 3d |6=DJD/M6|..h( M1=|
|00003e00| 33 36 30 2a 28 4d 31 2d | a8 28 4d 31 29 29 3a 4d |360*(M1-|.(M1)):M|
|00003e10| 32 3d 33 36 30 2a 28 4d | 32 2d a8 28 4d 32 29 29 |2=360*(M|2-.(M2))|
|00003e20| 0d 15 72 28 20 4d 33 3d | 33 36 30 2a 28 4d 33 2d |..r( M3=|360*(M3-|
|00003e30| a8 28 4d 33 29 29 3a 4d | 34 3d 33 36 30 2a 28 4d |.(M3)):M|4=360*(M|
|00003e40| 34 2d a8 28 4d 34 29 29 | 0d 15 7c 28 20 4d 35 3d |4-.(M4))|..|( M5=|
|00003e50| 33 36 30 2a 28 4d 35 2d | a8 28 4d 35 29 29 3a 4d |360*(M5-|.(M5)):M|
|00003e60| 36 3d 33 36 30 2a 28 4d | 36 2d a8 28 4d 36 29 29 |6=360*(M|6-.(M6))|
|00003e70| 0d 15 86 2e 20 4c 44 3d | 32 2e 37 30 34 33 34 31 |.... LD=|2.704341|
|00003e80| 36 34 45 32 2b 4d 31 2d | 28 31 2e 31 33 33 45 2d |64E2+M1-|(1.133E-|
|00003e90| 33 2d 31 2e 39 45 2d 36 | 2a 54 29 2a 54 32 0d 15 |3-1.9E-6|*T)*T2..|
|00003ea0| 90 2c 20 4d 53 3d 33 2e | 35 38 34 37 35 38 33 33 |., MS=3.|58475833|
|00003eb0| 45 32 2b 4d 32 2d 28 31 | 2e 35 45 2d 34 2b 33 2e |E2+M2-(1|.5E-4+3.|
|00003ec0| 33 45 2d 36 2a 54 29 2a | 54 32 0d 15 9a 2f 20 4d |3E-6*T)*|T2.../ M|
|00003ed0| 44 3d 32 2e 39 36 31 30 | 34 36 30 38 45 32 2b 4d |D=2.9610|4608E2+M|
|00003ee0| 33 2b 28 39 2e 31 39 32 | 45 2d 33 2b 31 2e 34 34 |3+(9.192|E-3+1.44|
|00003ef0| 45 2d 35 2a 54 29 2a 54 | 32 0d 15 a4 2e 20 44 45 |E-5*T)*T|2.... DE|
|00003f00| 3d 33 2e 35 30 37 33 37 | 34 38 36 45 32 2b 4d 34 |=3.50737|486E2+M4|
|00003f10| 2d 28 31 2e 34 33 36 45 | 2d 33 2d 31 2e 39 45 2d |-(1.436E|-3-1.9E-|
|00003f20| 36 2a 54 29 2a 54 32 0d | 15 ae 28 20 46 3d 31 31 |6*T)*T2.|..( F=11|
|00003f30| 2e 32 35 30 38 38 39 2b | 4d 35 2d 28 33 2e 32 31 |.250889+|M5-(3.21|
|00003f40| 31 45 2d 33 2b 33 45 2d | 37 2a 54 29 2a 54 32 0d |1E-3+3E-|7*T)*T2.|
|00003f50| 15 b8 2d 20 4e 3d 32 2e | 35 39 31 38 33 32 37 35 |..- N=2.|59183275|
|00003f60| 45 32 2d 4d 36 2b 28 32 | 2e 30 37 38 45 2d 33 2b |E2-M6+(2|.078E-3+|
|00003f70| 32 2e 32 45 2d 35 2a 54 | 29 2a 54 32 0d 15 c2 20 |2.2E-5*T|)*T2... |
|00003f80| 20 41 3d a4 52 41 44 28 | 35 31 2e 32 2b 32 30 2e | A=.RAD(|51.2+20.|
|00003f90| 32 2a 54 29 3a 53 41 3d | b5 28 41 29 0d 15 cc 12 |2*T):SA=|.(A)....|
|00003fa0| 20 53 4e 3d b5 28 a4 52 | 41 44 28 4e 29 29 0d 15 | SN=.(.R|AD(N))..|
|00003fb0| d6 24 20 42 3d 33 34 36 | 2e 35 36 2b 28 31 33 32 |.$ B=346|.56+(132|
|00003fc0| 2e 38 37 2d 39 2e 31 37 | 31 33 45 2d 33 2a 54 29 |.87-9.17|13E-3*T)|
|00003fd0| 2a 54 0d 15 e0 1b 20 53 | 42 3d 33 2e 39 36 34 45 |*T.... S|B=3.964E|
|00003fe0| 2d 33 2a b5 28 a4 52 41 | 44 28 42 29 29 0d 15 ea |-3*.(.RA|D(B))...|
|00003ff0| 06 20 3a 0d 15 f4 23 20 | 43 3d a4 52 41 44 28 4e |. :...# |C=.RAD(N|
|00004000| 2b 32 37 35 2e 30 35 2d | 32 2e 33 2a 54 29 3a 53 |+275.05-|2.3*T):S|
|00004010| 43 3d b5 28 43 29 0d 15 | fe 24 20 4c 44 3d 4c 44 |C=.(C)..|.$ LD=LD|
|00004020| 2b 32 2e 33 33 45 2d 34 | 2a 53 41 2b 53 42 2b 31 |+2.33E-4|*SA+SB+1|
|00004030| 2e 39 36 34 45 2d 33 2a | 53 4e 0d 16 08 15 20 4d |.964E-3*|SN.... M|
|00004040| 53 3d 4d 53 2d 31 2e 37 | 37 45 2d 33 2a 53 41 0d |S=MS-1.7|7E-3*SA.|
|00004050| 16 12 24 20 4d 44 3d 4d | 44 2b 38 2e 31 37 45 2d |..$ MD=M|D+8.17E-|
|00004060| 34 2a 53 41 2b 53 42 2b | 32 2e 35 34 31 45 2d 33 |4*SA+SB+|2.541E-3|
|00004070| 2a 53 4e 0d 16 1c 24 20 | 46 3d 46 2b 53 42 2d 32 |*SN...$ |F=F+SB-2|
|00004080| 2e 34 36 39 31 45 2d 32 | 2a 53 4e 2d 34 2e 33 32 |.4691E-2|*SN-4.32|
|00004090| 38 45 2d 33 2a 53 43 0d | 16 26 25 20 44 45 3d 44 |8E-3*SC.|.&% DE=D|
|000040a0| 45 2b 32 2e 30 31 31 45 | 2d 33 2a 53 41 2b 53 42 |E+2.011E|-3*SA+SB|
|000040b0| 2b 31 2e 39 36 34 45 2d | 33 2a 53 4e 0d 16 30 26 |+1.964E-|3*SN..0&|
|000040c0| 20 45 3d 31 2d 28 32 2e | 34 39 35 45 2d 33 2b 37 | E=1-(2.|495E-3+7|
|000040d0| 2e 35 32 45 2d 36 2a 54 | 29 2a 54 3a 45 32 3d 45 |.52E-6*T|)*T:E2=E|
|000040e0| 2a 45 0d 16 3a 26 20 4c | 44 3d a4 52 41 44 28 4c |*E..:& L|D=.RAD(L|
|000040f0| 44 29 3a 4d 53 3d a4 52 | 41 44 28 4d 53 29 3a 4e |D):MS=.R|AD(MS):N|
|00004100| 3d a4 52 41 44 28 4e 29 | 0d 16 44 26 20 44 45 3d |=.RAD(N)|..D& DE=|
|00004110| a4 52 41 44 28 44 45 29 | 3a 46 3d a4 52 41 44 28 |.RAD(DE)|:F=.RAD(|
|00004120| 46 29 3a 4d 44 3d a4 52 | 41 44 28 4d 44 29 0d 16 |F):MD=.R|AD(MD)..|
|00004130| 4e cf 20 4c 3d 36 2e 32 | 38 38 37 35 2a b5 28 4d |N. L=6.2|8875*.(M|
|00004140| 44 29 2b 31 2e 32 37 34 | 30 31 38 2a b5 28 32 2a |D)+1.274|018*.(2*|
|00004150| 44 45 2d 4d 44 29 2b 36 | 2e 35 38 33 30 39 45 2d |DE-MD)+6|.58309E-|
|00004160| 31 2a b5 28 32 2a 44 45 | 29 2b 32 2e 31 33 36 31 |1*.(2*DE|)+2.1361|
|00004170| 36 45 2d 31 2a b5 28 32 | 2a 4d 44 29 2d 45 2a 31 |6E-1*.(2|*MD)-E*1|
|00004180| 2e 38 35 35 39 36 45 2d | 31 2a b5 28 4d 53 29 2d |.85596E-|1*.(MS)-|
|00004190| 31 2e 31 34 33 33 36 45 | 2d 31 2a b5 28 32 2a 46 |1.14336E|-1*.(2*F|
|000041a0| 29 2b 35 2e 38 37 39 33 | 45 2d 32 2a b5 28 32 2a |)+5.8793|E-2*.(2*|
|000041b0| 28 44 45 2d 4d 44 29 29 | 2b 35 2e 37 32 31 32 45 |(DE-MD))|+5.7212E|
|000041c0| 2d 32 2a 45 2a b5 28 32 | 2a 44 45 2d 4d 53 2d 4d |-2*E*.(2|*DE-MS-M|
|000041d0| 44 29 2b 35 2e 33 33 32 | 45 2d 32 2a b5 28 32 2a |D)+5.332|E-2*.(2*|
|000041e0| 44 45 2b 4d 44 29 2b 34 | 2e 35 38 37 34 45 2d 32 |DE+MD)+4|.5874E-2|
|000041f0| 2a 45 2a b5 28 32 2a 44 | 45 2d 4d 53 29 0d 16 58 |*E*.(2*D|E-MS)..X|
|00004200| d4 20 4c 3d 4c 2b 34 2e | 31 30 32 34 45 2d 32 2a |. L=L+4.|1024E-2*|
|00004210| 45 2a b5 28 4d 44 2d 4d | 53 29 2d 33 2e 34 37 31 |E*.(MD-M|S)-3.471|
|00004220| 38 45 2d 32 2a b5 28 44 | 45 29 2d 45 2a 33 2e 30 |8E-2*.(D|E)-E*3.0|
|00004230| 34 36 35 45 2d 32 2a b5 | 28 4d 53 2b 4d 44 29 2b |465E-2*.|(MS+MD)+|
|00004240| 31 2e 35 33 32 36 45 2d | 32 2a b5 28 32 2a 28 44 |1.5326E-|2*.(2*(D|
|00004250| 45 2d 46 29 29 2d 31 2e | 32 35 32 38 45 2d 32 2a |E-F))-1.|2528E-2*|
|00004260| b5 28 32 2a 46 2b 4d 44 | 29 2d 31 2e 30 39 38 45 |.(2*F+MD|)-1.098E|
|00004270| 2d 32 2a b5 28 32 2a 46 | 2d 4d 44 29 2b 31 2e 30 |-2*.(2*F|-MD)+1.0|
|00004280| 36 37 34 45 2d 32 2a b5 | 28 34 2a 44 45 2d 4d 44 |674E-2*.|(4*DE-MD|
|00004290| 29 2b 31 2e 30 30 33 34 | 45 2d 32 2a b5 28 33 2a |)+1.0034|E-2*.(3*|
|000042a0| 4d 44 29 2b 38 2e 35 34 | 38 45 2d 33 2a b5 28 34 |MD)+8.54|8E-3*.(4|
|000042b0| 2a 44 45 2d 32 2a 4d 44 | 29 2d 45 2a 37 2e 39 31 |*DE-2*MD|)-E*7.91|
|000042c0| 45 2d 33 2a b5 28 4d 53 | 2d 4d 44 2b 32 2a 44 45 |E-3*.(MS|-MD+2*DE|
|000042d0| 29 0d 16 62 c4 20 4c 3d | 4c 2d 45 2a 36 2e 37 38 |)..b. L=|L-E*6.78|
|000042e0| 33 45 2d 33 2a b5 28 32 | 2a 44 45 2b 4d 53 29 2b |3E-3*.(2|*DE+MS)+|
|000042f0| 35 2e 31 36 32 45 2d 33 | 2a b5 28 4d 44 2d 44 45 |5.162E-3|*.(MD-DE|
|00004300| 29 2b 45 2a 35 45 2d 33 | 2a b5 28 4d 53 2b 44 45 |)+E*5E-3|*.(MS+DE|
|00004310| 29 2b 33 2e 38 36 32 45 | 2d 33 2a b5 28 34 2a 44 |)+3.862E|-3*.(4*D|
|00004320| 45 29 2b 45 2a 34 2e 30 | 34 39 45 2d 33 2a b5 28 |E)+E*4.0|49E-3*.(|
|00004330| 4d 44 2d 4d 53 2b 32 2a | 44 45 29 2b 33 2e 39 39 |MD-MS+2*|DE)+3.99|
|00004340| 36 45 2d 33 2a b5 28 32 | 2a 28 4d 44 2b 44 45 29 |6E-3*.(2|*(MD+DE)|
|00004350| 29 2b 33 2e 36 36 35 45 | 2d 33 2a b5 28 32 2a 44 |)+3.665E|-3*.(2*D|
|00004360| 45 2d 33 2a 4d 44 29 2b | 45 2a 32 2e 36 39 35 45 |E-3*MD)+|E*2.695E|
|00004370| 2d 33 2a b5 28 32 2a 4d | 44 2d 4d 53 29 2b 32 2e |-3*.(2*M|D-MS)+2.|
|00004380| 36 30 32 45 2d 33 2a b5 | 28 4d 44 2d 32 2a 28 46 |602E-3*.|(MD-2*(F|
|00004390| 2b 44 45 29 29 0d 16 6c | d9 20 4c 3d 4c 2b 45 2a |+DE))..l|. L=L+E*|
|000043a0| 32 2e 33 39 36 45 2d 33 | 2a b5 28 32 2a 28 44 45 |2.396E-3|*.(2*(DE|
|000043b0| 2d 4d 44 29 2d 4d 53 29 | 2d 32 2e 33 34 39 45 2d |-MD)-MS)|-2.349E-|
|000043c0| 33 2a b5 28 4d 44 2b 44 | 45 29 2b 45 32 2a 32 2e |3*.(MD+D|E)+E2*2.|
|000043d0| 32 34 39 45 2d 33 2a b5 | 28 32 2a 28 44 45 2d 4d |249E-3*.|(2*(DE-M|
|000043e0| 53 29 29 2d 45 2a 32 2e | 31 32 35 45 2d 33 2a b5 |S))-E*2.|125E-3*.|
|000043f0| 28 32 2a 4d 44 2b 4d 53 | 29 2d 45 32 2a 32 2e 30 |(2*MD+MS|)-E2*2.0|
|00004400| 37 39 45 2d 33 2a b5 28 | 32 2a 4d 53 29 2b 45 32 |79E-3*.(|2*MS)+E2|
|00004410| 2a 32 2e 30 35 39 45 2d | 33 2a b5 28 32 2a 28 44 |*2.059E-|3*.(2*(D|
|00004420| 45 2d 4d 53 29 2d 4d 44 | 29 2d 31 2e 37 37 33 45 |E-MS)-MD|)-1.773E|
|00004430| 2d 33 2a b5 28 4d 44 2b | 32 2a 28 44 45 2d 46 29 |-3*.(MD+|2*(DE-F)|
|00004440| 29 2d 31 2e 35 39 35 45 | 2d 33 2a b5 28 32 2a 28 |)-1.595E|-3*.(2*(|
|00004450| 46 2b 44 45 29 29 2b 45 | 2a 31 2e 32 32 45 2d 33 |F+DE))+E|*1.22E-3|
|00004460| 2a b5 28 34 2a 44 45 2d | 4d 53 2d 4d 44 29 0d 16 |*.(4*DE-|MS-MD)..|
|00004470| 76 d1 20 4c 3d 4c 2d 31 | 2e 31 31 45 2d 33 2a b5 |v. L=L-1|.11E-3*.|
|00004480| 28 32 2a 28 4d 44 2b 46 | 29 29 2b 38 2e 39 32 45 |(2*(MD+F|))+8.92E|
|00004490| 2d 34 2a b5 28 4d 44 2d | 33 2a 44 45 29 2d 45 2a |-4*.(MD-|3*DE)-E*|
|000044a0| 38 2e 31 31 45 2d 34 2a | b5 28 4d 53 2b 4d 44 2b |8.11E-4*|.(MS+MD+|
|000044b0| 32 2a 44 45 29 2b 45 2a | 37 2e 36 31 45 2d 34 2a |2*DE)+E*|7.61E-4*|
|000044c0| b5 28 34 2a 44 45 2d 4d | 53 2d 32 2a 4d 44 29 2b |.(4*DE-M|S-2*MD)+|
|000044d0| 45 32 2a 37 2e 30 34 45 | 2d 34 2a b5 28 4d 44 2d |E2*7.04E|-4*.(MD-|
|000044e0| 32 2a 28 4d 53 2b 44 45 | 29 29 2b 45 2a 36 2e 39 |2*(MS+DE|))+E*6.9|
|000044f0| 33 45 2d 34 2a b5 28 4d | 53 2d 32 2a 28 4d 44 2d |3E-4*.(M|S-2*(MD-|
|00004500| 44 45 29 29 2b 45 2a 35 | 2e 39 38 45 2d 34 2a b5 |DE))+E*5|.98E-4*.|
|00004510| 28 32 2a 28 44 45 2d 46 | 29 2d 4d 53 29 2b 35 2e |(2*(DE-F|)-MS)+5.|
|00004520| 35 45 2d 34 2a b5 28 4d | 44 2b 34 2a 44 45 29 2b |5E-4*.(M|D+4*DE)+|
|00004530| 35 2e 33 38 45 2d 34 2a | b5 28 34 2a 4d 44 29 0d |5.38E-4*|.(4*MD).|
|00004540| 16 80 46 20 4c 3d 4c 2b | 45 2a 35 2e 32 31 45 2d |..F L=L+|E*5.21E-|
|00004550| 34 2a b5 28 34 2a 44 45 | 2d 4d 53 29 2b 34 2e 38 |4*.(4*DE|-MS)+4.8|
|00004560| 36 45 2d 34 2a b5 28 32 | 2a 4d 44 2d 44 45 29 2b |6E-4*.(2|*MD-DE)+|
|00004570| 45 32 2a 37 2e 31 37 45 | 2d 34 2a b5 28 4d 44 2d |E2*7.17E|-4*.(MD-|
|00004580| 32 2a 4d 53 29 0d 16 8a | 13 20 4c 41 4d 3d 4c 44 |2*MS)...|. LAM=LD|
|00004590| 2b a4 52 41 44 28 4c 29 | 0d 16 94 21 20 e7 20 4c |+.RAD(L)|...! . L|
|000045a0| 41 4d 3c 30 20 8c 20 4c | 41 4d 3d 4c 41 4d 2b 54 |AM<0 . L|AM=LAM+T|
|000045b0| 50 49 3a e5 20 8d 74 54 | 56 0d 16 9e 23 20 e7 20 |PI:. .tT|V...# . |
|000045c0| 4c 41 4d 3e 54 50 49 20 | 8c 20 4c 41 4d 3d 4c 41 |LAM>TPI |. LAM=LA|
|000045d0| 4d 2d 54 50 49 3a e5 20 | 8d 74 5e 56 0d 16 a8 ce |M-TPI:. |.t^V....|
|000045e0| 20 47 3d 35 2e 31 32 38 | 31 38 39 2a b5 28 46 29 | G=5.128|189*.(F)|
|000045f0| 2b 32 2e 38 30 36 30 36 | 45 2d 31 2a b5 28 4d 44 |+2.80606|E-1*.(MD|
|00004600| 2b 46 29 2b 32 2e 37 37 | 36 39 33 45 2d 31 2a b5 |+F)+2.77|693E-1*.|
|00004610| 28 4d 44 2d 46 29 2b 31 | 2e 37 33 32 33 38 45 2d |(MD-F)+1|.73238E-|
|00004620| 31 2a b5 28 32 2a 44 45 | 2d 46 29 2b 35 2e 35 34 |1*.(2*DE|-F)+5.54|
|00004630| 31 33 45 2d 32 2a b5 28 | 32 2a 44 45 2b 46 2d 4d |13E-2*.(|2*DE+F-M|
|00004640| 44 29 2b 34 2e 36 32 37 | 32 45 2d 32 2a b5 28 32 |D)+4.627|2E-2*.(2|
|00004650| 2a 44 45 2d 46 2d 4d 44 | 29 2b 33 2e 32 35 37 33 |*DE-F-MD|)+3.2573|
|00004660| 45 2d 32 2a b5 28 32 2a | 44 45 2b 46 29 2b 31 2e |E-2*.(2*|DE+F)+1.|
|00004670| 37 31 39 38 45 2d 32 2a | b5 28 32 2a 4d 44 2b 46 |7198E-2*|.(2*MD+F|
|00004680| 29 2b 39 2e 32 36 37 45 | 2d 33 2a b5 28 32 2a 44 |)+9.267E|-3*.(2*D|
|00004690| 45 2b 4d 44 2d 46 29 2b | 38 2e 38 32 33 45 2d 33 |E+MD-F)+|8.823E-3|
|000046a0| 2a b5 28 32 2a 4d 44 2d | 46 29 0d 16 b2 c8 20 47 |*.(2*MD-|F).... G|
|000046b0| 3d 47 2b 45 2a 38 2e 32 | 34 37 45 2d 33 2a b5 28 |=G+E*8.2|47E-3*.(|
|000046c0| 32 2a 44 45 2d 4d 53 2d | 46 29 2b 34 2e 33 32 33 |2*DE-MS-|F)+4.323|
|000046d0| 45 2d 33 2a b5 28 32 2a | 28 44 45 2d 4d 44 29 2d |E-3*.(2*|(DE-MD)-|
|000046e0| 46 29 2b 34 2e 32 45 2d | 33 2a b5 28 32 2a 44 45 |F)+4.2E-|3*.(2*DE|
|000046f0| 2b 46 2b 4d 44 29 2b 45 | 2a 33 2e 33 37 32 45 2d |+F+MD)+E|*3.372E-|
|00004700| 33 2a b5 28 46 2d 4d 53 | 2d 32 2a 44 45 29 2b 45 |3*.(F-MS|-2*DE)+E|
|00004710| 2a 32 2e 34 37 32 45 2d | 33 2a b5 28 32 2a 44 45 |*2.472E-|3*.(2*DE|
|00004720| 2b 46 2d 4d 53 2d 4d 44 | 29 2b 45 2a 32 2e 32 32 |+F-MS-MD|)+E*2.22|
|00004730| 32 45 2d 33 2a b5 28 32 | 2a 44 45 2b 46 2d 4d 53 |2E-3*.(2|*DE+F-MS|
|00004740| 29 2b 45 2a 32 2e 30 37 | 32 45 2d 33 2a b5 28 32 |)+E*2.07|2E-3*.(2|
|00004750| 2a 44 45 2d 46 2d 4d 53 | 2d 4d 44 29 2b 45 2a 31 |*DE-F-MS|-MD)+E*1|
|00004760| 2e 38 37 37 45 2d 33 2a | b5 28 46 2d 4d 53 2b 4d |.877E-3*|.(F-MS+M|
|00004770| 44 29 0d 16 bc c7 20 47 | 3d 47 2b 31 2e 38 32 38 |D).... G|=G+1.828|
|00004780| 45 2d 33 2a b5 28 34 2a | 44 45 2d 46 2d 4d 44 29 |E-3*.(4*|DE-F-MD)|
|00004790| 2d 45 2a 31 2e 38 30 33 | 45 2d 33 2a b5 28 46 2b |-E*1.803|E-3*.(F+|
|000047a0| 4d 53 29 2d 31 2e 37 35 | 45 2d 33 2a b5 28 33 2a |MS)-1.75|E-3*.(3*|
|000047b0| 46 29 2b 45 2a 31 2e 35 | 37 45 2d 33 2a b5 28 4d |F)+E*1.5|7E-3*.(M|
|000047c0| 44 2d 4d 53 2d 46 29 2d | 31 2e 34 38 37 45 2d 33 |D-MS-F)-|1.487E-3|
|000047d0| 2a b5 28 46 2b 44 45 29 | 2d 45 2a 31 2e 34 38 31 |*.(F+DE)|-E*1.481|
|000047e0| 45 2d 33 2a b5 28 46 2b | 4d 53 2b 4d 44 29 2b 45 |E-3*.(F+|MS+MD)+E|
|000047f0| 2a 31 2e 34 31 37 45 2d | 33 2a b5 28 46 2d 4d 53 |*1.417E-|3*.(F-MS|
|00004800| 2d 4d 44 29 2b 45 2a 31 | 2e 33 35 45 2d 33 2a b5 |-MD)+E*1|.35E-3*.|
|00004810| 28 46 2d 4d 53 29 2b 31 | 2e 33 33 45 2d 33 2a b5 |(F-MS)+1|.33E-3*.|
|00004820| 28 46 2d 44 45 29 2b 31 | 2e 31 30 36 45 2d 33 2a |(F-DE)+1|.106E-3*|
|00004830| b5 28 46 2b 33 2a 4d 44 | 29 0d 16 c6 c4 20 47 3d |.(F+3*MD|).... G=|
|00004840| 47 2b 31 2e 30 32 45 2d | 33 2a b5 28 34 2a 44 45 |G+1.02E-|3*.(4*DE|
|00004850| 2d 46 29 2b 38 2e 33 33 | 45 2d 34 2a b5 28 46 2b |-F)+8.33|E-4*.(F+|
|00004860| 34 2a 44 45 2d 4d 44 29 | 2b 37 2e 38 31 45 2d 34 |4*DE-MD)|+7.81E-4|
|00004870| 2a b5 28 4d 44 2d 33 2a | 46 29 2b 36 2e 37 45 2d |*.(MD-3*|F)+6.7E-|
|00004880| 34 2a b5 28 46 2b 34 2a | 44 45 2d 32 2a 4d 44 29 |4*.(F+4*|DE-2*MD)|
|00004890| 2b 36 2e 30 36 45 2d 34 | 2a b5 28 32 2a 44 45 2d |+6.06E-4|*.(2*DE-|
|000048a0| 33 2a 46 29 2b 35 2e 39 | 37 45 2d 34 2a b5 28 32 |3*F)+5.9|7E-4*.(2|
|000048b0| 2a 28 44 45 2b 4d 44 29 | 2d 46 29 2b 45 2a 34 2e |*(DE+MD)|-F)+E*4.|
|000048c0| 39 32 45 2d 34 2a b5 28 | 32 2a 44 45 2b 4d 44 2d |92E-4*.(|2*DE+MD-|
|000048d0| 4d 53 2d 46 29 2b 34 2e | 35 45 2d 34 2a b5 28 32 |MS-F)+4.|5E-4*.(2|
|000048e0| 2a 28 4d 44 2d 44 45 29 | 2d 46 29 2b 34 2e 33 39 |*(MD-DE)|-F)+4.39|
|000048f0| 45 2d 34 2a b5 28 33 2a | 4d 44 2d 46 29 0d 16 d0 |E-4*.(3*|MD-F)...|
|00004900| bf 20 47 3d 47 2b 34 2e | 32 33 45 2d 34 2a b5 28 |. G=G+4.|23E-4*.(|
|00004910| 46 2b 32 2a 28 44 45 2b | 4d 44 29 29 2b 34 2e 32 |F+2*(DE+|MD))+4.2|
|00004920| 32 45 2d 34 2a b5 28 32 | 2a 44 45 2d 46 2d 33 2a |2E-4*.(2|*DE-F-3*|
|00004930| 4d 44 29 2d 45 2a 33 2e | 36 37 45 2d 34 2a b5 28 |MD)-E*3.|67E-4*.(|
|00004940| 4d 53 2b 46 2b 32 2a 44 | 45 2d 4d 44 29 2d 45 2a |MS+F+2*D|E-MD)-E*|
|00004950| 33 2e 35 33 45 2d 34 2a | b5 28 4d 53 2b 46 2b 32 |3.53E-4*|.(MS+F+2|
|00004960| 2a 44 45 29 2b 33 2e 33 | 31 45 2d 34 2a b5 28 46 |*DE)+3.3|1E-4*.(F|
|00004970| 2b 34 2a 44 45 29 2b 45 | 2a 33 2e 31 37 45 2d 34 |+4*DE)+E|*3.17E-4|
|00004980| 2a b5 28 32 2a 44 45 2b | 46 2d 4d 53 2b 4d 44 29 |*.(2*DE+|F-MS+MD)|
|00004990| 2b 45 32 2a 33 2e 30 36 | 45 2d 34 2a b5 28 32 2a |+E2*3.06|E-4*.(2*|
|000049a0| 28 44 45 2d 4d 53 29 2d | 46 29 2d 32 2e 38 33 45 |(DE-MS)-|F)-2.83E|
|000049b0| 2d 34 2a b5 28 4d 44 2b | 33 2a 46 29 0d 16 da 06 |-4*.(MD+|3*F)....|
|000049c0| 20 3a 0d 16 e4 25 20 57 | 31 3d 34 2e 36 36 34 45 | :...% W|1=4.664E|
|000049d0| 2d 34 2a 9b 28 4e 29 3a | 57 32 3d 37 2e 35 34 45 |-4*.(N):|W2=7.54E|
|000049e0| 2d 35 2a 9b 28 43 29 0d | 16 ee 1a 20 42 45 54 3d |-5*.(C).|... BET=|
|000049f0| a4 52 41 44 28 47 29 2a | 28 31 2d 57 31 2d 57 32 |.RAD(G)*|(1-W1-W2|
|00004a00| 29 0d 16 f8 ca 20 48 50 | 3d 39 2e 35 30 37 32 34 |).... HP|=9.50724|
|00004a10| 45 2d 31 2b 35 2e 31 38 | 31 45 2d 32 2a 9b 28 4d |E-1+5.18|1E-2*.(M|
|00004a20| 44 29 2b 39 2e 35 33 31 | 45 2d 33 2a 9b 28 32 2a |D)+9.531|E-3*.(2*|
|00004a30| 44 45 2d 4d 44 29 2b 37 | 2e 38 34 33 45 2d 33 2a |DE-MD)+7|.843E-3*|
|00004a40| 9b 28 32 2a 44 45 29 2b | 32 2e 38 32 34 45 2d 33 |.(2*DE)+|2.824E-3|
|00004a50| 2a 9b 28 32 2a 4d 44 29 | 2b 38 2e 35 37 45 2d 34 |*.(2*MD)|+8.57E-4|
|00004a60| 2a 9b 28 32 2a 44 45 2b | 4d 44 29 2b 45 2a 35 2e |*.(2*DE+|MD)+E*5.|
|00004a70| 33 33 45 2d 34 2a 9b 28 | 32 2a 44 45 2d 4d 53 29 |33E-4*.(|2*DE-MS)|
|00004a80| 2b 45 2a 34 2e 30 31 45 | 2d 34 2a 9b 28 32 2a 44 |+E*4.01E|-4*.(2*D|
|00004a90| 45 2d 4d 44 2d 4d 53 29 | 2b 45 2a 33 2e 32 45 2d |E-MD-MS)|+E*3.2E-|
|00004aa0| 34 2a 9b 28 4d 44 2d 4d | 53 29 2d 32 2e 37 31 45 |4*.(MD-M|S)-2.71E|
|00004ab0| 2d 34 2a 9b 28 44 45 29 | 2d 45 2a 32 2e 36 34 45 |-4*.(DE)|-E*2.64E|
|00004ac0| 2d 34 2a 9b 28 4d 53 2b | 4d 44 29 0d 17 02 c6 20 |-4*.(MS+|MD).... |
|00004ad0| 48 50 3d 48 50 2d 31 2e | 39 38 45 2d 34 2a 9b 28 |HP=HP-1.|98E-4*.(|
|00004ae0| 32 2a 46 2d 4d 44 29 2b | 31 2e 37 33 45 2d 34 2a |2*F-MD)+|1.73E-4*|
|00004af0| 9b 28 33 2a 4d 44 29 2b | 31 2e 36 37 45 2d 34 2a |.(3*MD)+|1.67E-4*|
|00004b00| 9b 28 34 2a 44 45 2d 4d | 44 29 2d 45 2a 31 2e 31 |.(4*DE-M|D)-E*1.1|
|00004b10| 31 45 2d 34 2a 9b 28 4d | 53 29 2b 31 2e 30 33 45 |1E-4*.(M|S)+1.03E|
|00004b20| 2d 34 2a 9b 28 34 2a 44 | 45 2d 32 2a 4d 44 29 2d |-4*.(4*D|E-2*MD)-|
|00004b30| 38 2e 34 45 2d 35 2a 9b | 28 32 2a 4d 44 2d 32 2a |8.4E-5*.|(2*MD-2*|
|00004b40| 44 45 29 2d 45 2a 38 2e | 33 45 2d 35 2a 9b 28 32 |DE)-E*8.|3E-5*.(2|
|00004b50| 2a 44 45 2b 4d 53 29 2b | 37 2e 39 45 2d 35 2a 9b |*DE+MS)+|7.9E-5*.|
|00004b60| 28 32 2a 44 45 2b 32 2a | 4d 44 29 2b 37 2e 32 45 |(2*DE+2*|MD)+7.2E|
|00004b70| 2d 35 2a 9b 28 34 2a 44 | 45 29 2b 45 2a 36 2e 34 |-5*.(4*D|E)+E*6.4|
|00004b80| 45 2d 35 2a 9b 28 32 2a | 44 45 2d 4d 53 2b 4d 44 |E-5*.(2*|DE-MS+MD|
|00004b90| 29 0d 17 0c d4 20 48 50 | 3d 48 50 2d 45 2a 36 2e |).... HP|=HP-E*6.|
|00004ba0| 33 45 2d 35 2a 9b 28 32 | 2a 44 45 2b 4d 53 2d 4d |3E-5*.(2|*DE+MS-M|
|00004bb0| 44 29 2b 45 2a 34 2e 31 | 45 2d 35 2a 9b 28 4d 53 |D)+E*4.1|E-5*.(MS|
|00004bc0| 2b 44 45 29 2b 45 2a 33 | 2e 35 45 2d 35 2a 9b 28 |+DE)+E*3|.5E-5*.(|
|00004bd0| 32 2a 4d 44 2d 4d 53 29 | 2d 33 2e 33 45 2d 35 2a |2*MD-MS)|-3.3E-5*|
|00004be0| 9b 28 33 2a 4d 44 2d 32 | 2a 44 45 29 2d 33 45 2d |.(3*MD-2|*DE)-3E-|
|00004bf0| 35 2a 9b 28 4d 44 2b 44 | 45 29 2d 32 2e 39 45 2d |5*.(MD+D|E)-2.9E-|
|00004c00| 35 2a 9b 28 32 2a 28 46 | 2d 44 45 29 29 2d 45 2a |5*.(2*(F|-DE))-E*|
|00004c10| 32 2e 39 45 2d 35 2a 9b | 28 32 2a 4d 44 2b 4d 53 |2.9E-5*.|(2*MD+MS|
|00004c20| 29 2b 45 32 2a 32 2e 36 | 45 2d 35 2a 9b 28 32 2a |)+E2*2.6|E-5*.(2*|
|00004c30| 28 44 45 2d 4d 53 29 29 | 2d 32 2e 33 45 2d 35 2a |(DE-MS))|-2.3E-5*|
|00004c40| 9b 28 32 2a 28 46 2d 44 | 45 29 2b 4d 44 29 2b 45 |.(2*(F-D|E)+MD)+E|
|00004c50| 2a 31 2e 39 45 2d 35 2a | 9b 28 34 2a 44 45 2d 4d |*1.9E-5*|.(4*DE-M|
|00004c60| 53 2d 4d 44 29 0d 17 16 | 05 3a 0d 17 20 10 20 48 |S-MD)...|.:.. . H|
|00004c70| 50 3d a4 52 41 44 28 48 | 50 29 0d 17 2a 06 20 e1 |P=.RAD(H|P)..*. .|
|00004c80| 0d 17 34 06 20 3a 0d 17 | 3e 0c 20 dd f2 52 69 73 |..4. :..|>. ..Ris|
|00004c90| 65 74 0d 17 48 17 20 e7 | 20 46 4c 41 47 28 39 29 |et..H. .| FLAG(9)|
|00004ca0| 3d 31 20 8c 20 8d 44 66 | 57 0d 17 52 1c 20 43 50 |=1 . .Df|W..R. CP|
|00004cb0| 48 49 3d 9b 28 50 48 49 | 29 3a 53 50 48 49 3d b5 |HI=.(PHI|):SPHI=.|
|00004cc0| 28 50 48 49 29 0d 17 5c | 0e 20 46 4c 41 47 28 39 |(PHI)..\|. FLAG(9|
|00004cd0| 29 3d 31 0d 17 66 16 20 | 43 59 3d 9b 28 59 29 3a |)=1..f. |CY=.(Y):|
|00004ce0| 41 3d 43 59 2a 43 50 48 | 49 0d 17 70 1b 20 e7 20 |A=CY*CPH|I..p. . |
|00004cf0| 94 28 41 29 3c 31 45 2d | 31 30 20 f2 45 72 72 6f |.(A)<1E-|10 .Erro|
|00004d00| 72 33 3a e1 0d 17 7a 11 | 20 43 50 53 49 3d 53 50 |r3:...z.| CPSI=SP|
|00004d10| 48 49 2f 43 59 0d 17 84 | 16 20 e7 20 43 50 53 49 |HI/CY...|. . CPSI|
|00004d20| 3e 31 20 8c 20 43 50 53 | 49 3d 31 0d 17 8e 18 20 |>1 . CPS|I=1.... |
|00004d30| e7 20 43 50 53 49 3c 2d | 31 20 8c 20 43 50 53 49 |. CPSI<-|1 . CPSI|
|00004d40| 3d 2d 31 0d 17 98 1f 20 | 50 53 49 3d a4 41 43 53 |=-1.... |PSI=.ACS|
|00004d50| 28 43 50 53 49 29 3a 53 | 50 53 49 3d b5 28 50 53 |(CPSI):S|PSI=.(PS|
|00004d60| 49 29 0d 17 a2 20 20 44 | 48 3d 44 49 53 2a 53 50 |I)... D|H=DIS*SP|
|00004d70| 53 49 3a 59 31 3d 59 2b | 28 44 49 53 2a 43 50 53 |SI:Y1=Y+|(DIS*CPS|
|00004d80| 49 29 0d 17 ac 16 20 53 | 59 3d b5 28 59 31 29 3a |I).... S|Y=.(Y1):|
|00004d90| 54 59 3d b7 28 59 31 29 | 0d 17 b6 19 20 43 48 3d |TY=.(Y1)|.... CH=|
|00004da0| 28 2d 31 2a 53 50 48 49 | 2a 54 59 29 2f 43 50 48 |(-1*SPHI|*TY)/CPH|
|00004db0| 49 0d 17 c0 16 20 e7 20 | 43 48 3c 2d 31 20 f2 45 |I.... . |CH<-1 .E|
|00004dc0| 72 72 6f 72 31 3a e1 0d | 17 ca 15 20 e7 20 43 48 |rror1:..|... . CH|
|00004dd0| 3e 31 20 f2 45 72 72 6f | 72 32 3a e1 0d 17 d4 16 |>1 .Erro|r2:.....|
|00004de0| 20 45 52 52 31 3d 30 3a | 48 3d a4 41 43 53 28 43 | ERR1=0:|H=.ACS(C|
|00004df0| 48 29 0d 17 de 19 20 48 | 3d 28 48 2b 44 48 29 2a |H).... H|=(H+DH)*|
|00004e00| 33 2e 38 31 39 37 31 38 | 36 33 34 0d 17 e8 19 20 |3.819718|634.... |
|00004e10| 4c 53 54 52 3d 32 34 2b | 58 2d 48 3a 4c 53 54 53 |LSTR=24+|X-H:LSTS|
|00004e20| 3d 58 2b 48 0d 17 f2 20 | 20 43 41 5a 52 3d 53 59 |=X+H... | CAZR=SY|
|00004e30| 2f 43 50 48 49 3a 41 5a | 52 3d a4 41 43 53 28 43 |/CPHI:AZ|R=.ACS(C|
|00004e40| 41 5a 52 29 0d 17 fc 24 | 20 41 5a 53 3d 54 50 49 |AZR)...$| AZS=TPI|
|00004e50| 2d 41 5a 52 3a 42 3d 4c | 53 54 52 3a 43 3d 32 34 |-AZR:B=L|STR:C=24|
|00004e60| 3a f2 41 64 6a 75 73 74 | 0d 18 06 21 20 4c 53 54 |:.Adjust|...! LST|
|00004e70| 52 3d 42 3a 42 3d 4c 53 | 54 53 3a f2 41 64 6a 75 |R=B:B=LS|TS:.Adju|
|00004e80| 73 74 3a 4c 53 54 53 3d | 42 0d 18 10 1e 20 42 3d |st:LSTS=|B.... B=|
|00004e90| 41 5a 52 3a 43 3d 54 50 | 49 3a f2 41 64 6a 75 73 |AZR:C=TP|I:.Adjus|
|00004ea0| 74 3a 41 5a 52 3d 42 0d | 18 1a 18 20 42 3d 41 5a |t:AZR=B.|... B=AZ|
|00004eb0| 53 3a f2 41 64 6a 75 73 | 74 3a 41 5a 53 3d 42 0d |S:.Adjus|t:AZS=B.|
|00004ec0| 18 24 06 20 e1 0d 18 2e | 06 20 3a 0d 18 38 0d 20 |.$. ....|. :..8. |
|00004ed0| dd f2 41 64 6a 75 73 74 | 0d 18 42 12 20 e7 20 42 |..Adjust|..B. . B|
|00004ee0| 3c 30 20 8c 20 42 3d 42 | 2b 43 0d 18 4c 12 20 e7 |<0 . B=B|+C..L. .|
|00004ef0| 20 42 3e 43 20 8c 20 42 | 3d 42 2d 43 0d 18 56 06 | B>C . B|=B-C..V.|
|00004f00| 20 e1 0d 18 60 06 20 3a | 0d 18 6a 0d 20 dd f2 45 | ...`. :|..j. ..E|
|00004f10| 72 72 6f 72 31 0d 18 74 | 21 20 45 52 52 31 3d 2d |rror1..t|! ERR1=-|
|00004f20| 31 3a f1 22 2a 2a 20 63 | 69 72 63 75 6d 70 6f 6c |1:."** c|ircumpol|
|00004f30| 61 72 20 2a 2a 22 0d 18 | 7e 06 20 e1 0d 18 88 06 |ar **"..|~. .....|
|00004f40| 20 3a 0d 18 92 0d 20 dd | f2 45 72 72 6f 72 32 0d | :.... .|.Error2.|
|00004f50| 18 9c 20 20 45 52 52 31 | 3d 31 3a f1 22 2a 2a 20 |.. ERR1|=1:."** |
|00004f60| 6e 65 76 65 72 20 72 69 | 73 65 73 20 2a 2a 22 0d |never ri|ses **".|
|00004f70| 18 a6 06 20 e1 0d 18 b0 | 06 20 3a 0d 18 ba 0d 20 |... ....|. :.... |
|00004f80| dd f2 45 72 72 6f 72 33 | 0d 18 c4 2b 20 45 52 52 |..Error3|...+ ERR|
|00004f90| 31 3d 32 3a f1 22 2a 2a | 20 69 6d 70 6f 73 73 69 |1=2:."**| impossi|
|00004fa0| 62 6c 65 20 63 61 6c 63 | 75 6c 61 74 69 6f 6e 20 |ble calc|ulation |
|00004fb0| 2a 2a 22 0d 18 ce 06 20 | e1 0d 18 d8 06 20 3a 0d |**".... |..... :.|
|00004fc0| 18 e2 0d 20 dd f2 4d 6f | 6f 6e 72 73 0d 18 ec 24 |... ..Mo|onrs...$|
|00004fd0| 20 44 59 30 3d 44 59 3a | 4d 4e 30 3d 4d 4e 3a 59 | DY0=DY:|MN0=MN:Y|
|00004fe0| 52 30 3d 59 52 3a 44 59 | 3d 44 59 30 2b 30 2e 35 |R0=YR:DY|=DY0+0.5|
|00004ff0| 0d 18 f6 0f 20 f2 4d 6f | 6f 6e 6e 75 74 61 74 0d |.... .Mo|onnutat.|
|00005000| 19 00 10 20 e7 20 45 52 | 52 31 3c 3e 30 20 e1 0d |... . ER|R1<>0 ..|
|00005010| 19 0a 16 20 50 41 53 53 | 3d 30 3a 41 4c 3d 4c 4f |... PASS|=0:AL=LO|
|00005020| 4e 47 2f 31 35 0d 19 14 | 26 20 54 52 3d 4c 53 54 |NG/15...|& TR=LST|
|00005030| 52 2d 41 4c 3a 54 53 3d | 4c 53 54 53 2d 41 4c 3a |R-AL:TS=|LSTS-AL:|
|00005040| f2 54 69 6d 65 41 64 6a | 75 73 74 0d 19 1e 12 20 |.TimeAdj|ust.... |
|00005050| 45 52 52 34 3d 30 3a 45 | 52 52 35 3d 30 0d 19 28 |ERR4=0:E|RR5=0..(|
|00005060| 17 20 44 59 3d 44 59 30 | 3a 50 41 53 53 3d 50 41 |. DY=DY0|:PASS=PA|
|00005070| 53 53 2b 31 0d 19 32 19 | 20 54 49 4d 3d 54 52 3a |SS+1..2.| TIM=TR:|
|00005080| 53 57 32 3d 2d 31 3a f2 | 47 74 69 6d 65 0d 19 3c |SW2=-1:.|Gtime..<|
|00005090| 22 20 e7 20 47 54 4d 3e | 32 33 2e 35 20 84 20 47 |" . GTM>|23.5 . G|
|000050a0| 54 4d 3c 30 2e 35 20 8c | 20 45 52 52 34 3d 31 0d |TM<0.5 .| ERR4=1.|
|000050b0| 19 46 1b 20 47 54 4d 52 | 3d 47 54 4d 3a 54 49 4d |.F. GTMR|=GTM:TIM|
|000050c0| 3d 54 53 3a f2 47 74 69 | 6d 65 0d 19 50 22 20 e7 |=TS:.Gti|me..P" .|
|000050d0| 20 47 54 4d 3e 32 33 2e | 35 20 84 20 47 54 4d 3c | GTM>23.|5 . GTM<|
|000050e0| 30 2e 35 20 8c 20 45 52 | 52 35 3d 31 0d 19 5a 16 |0.5 . ER|R5=1..Z.|
|000050f0| 20 47 54 4d 53 3d 47 54 | 4d 3a 44 4a 44 30 3d 44 | GTMS=GT|M:DJD0=D|
|00005100| 4a 44 0d 19 64 20 20 44 | 4a 44 3d 44 4a 44 30 2b |JD..d D|JD=DJD0+|
|00005110| 47 54 4d 52 2f 32 34 3a | f2 4d 6f 6f 6e 6e 75 74 |GTMR/24:|.Moonnut|
|00005120| 61 74 0d 19 6e 11 20 e7 | 20 45 52 52 31 20 3c 3e |at..n. .| ERR1 <>|
|00005130| 30 20 e1 0d 19 78 18 20 | 41 5a 52 30 3d 41 5a 52 |0 ...x. |AZR0=AZR|
|00005140| 3a 54 52 3d 4c 53 54 52 | 2d 41 4c 0d 19 82 20 20 |:TR=LSTR|-AL... |
|00005150| 44 4a 44 3d 44 4a 44 30 | 2b 47 54 4d 53 2f 32 34 |DJD=DJD0|+GTMS/24|
|00005160| 3a f2 4d 6f 6f 6e 6e 75 | 74 61 74 0d 19 8c 11 20 |:.Moonnu|tat.... |
|00005170| e7 20 45 52 52 31 20 3c | 3e 30 20 e1 0d 19 96 24 |. ERR1 <|>0 ....$|
|00005180| 20 41 5a 53 30 3d 41 5a | 53 3a 54 53 3d 4c 53 54 | AZS0=AZ|S:TS=LST|
|00005190| 53 2d 41 4c 3a f2 54 69 | 6d 65 41 64 6a 75 73 74 |S-AL:.Ti|meAdjust|
|000051a0| 0d 19 a0 14 20 e7 20 50 | 41 53 53 3c 32 20 8c 20 |.... . P|ASS<2 . |
|000051b0| 8d 54 68 59 0d 19 aa 22 | 20 44 59 3d 44 59 30 3a |.ThY..."| DY=DY0:|
|000051c0| 54 49 4d 3d 54 52 2b 38 | 2e 33 33 33 45 2d 33 3a |TIM=TR+8|.333E-3:|
|000051d0| f2 47 74 69 6d 65 0d 19 | b4 12 20 48 53 52 3d 48 |.Gtime..|.. HSR=H|
|000051e0| 53 3a 4d 53 52 3d 4d 53 | 0d 19 be 1b 20 54 49 4d |S:MSR=MS|.... TIM|
|000051f0| 3d 54 53 2b 38 2e 33 33 | 33 45 2d 33 3a f2 47 74 |=TS+8.33|3E-3:.Gt|
|00005200| 69 6d 65 0d 19 c8 12 20 | 48 53 53 3d 48 53 3a 4d |ime.... |HSS=HS:M|
|00005210| 53 53 3d 4d 53 0d 19 d2 | 06 20 e1 0d 19 dc 06 20 |SS=MS...|. ..... |
|00005220| 3a 0d 19 e6 10 20 dd f2 | 4d 6f 6f 6e 6e 75 74 61 |:.... ..|Moonnuta|
|00005230| 74 0d 19 f0 11 20 f2 4d | 6f 6f 6e 3a f2 4e 75 74 |t.... .M|oon:.Nut|
|00005240| 61 74 0d 19 fa 1c 20 54 | 48 3d 32 2e 37 32 34 39 |at.... T|H=2.7249|
|00005250| 45 2d 31 2a b5 28 48 50 | 29 3a 48 54 3d 30 0d 1a |E-1*.(HP|):HT=0..|
|00005260| 04 19 20 44 49 53 3d 54 | 48 2b 39 2e 38 38 39 30 |.. DIS=T|H+9.8890|
|00005270| 32 45 2d 33 2d 48 50 0d | 1a 0e 1b 20 58 3d a4 52 |2E-3-HP.|... X=.R|
|00005280| 41 44 28 44 50 53 49 29 | 2b 4c 41 4d 3a 59 3d 42 |AD(DPSI)|+LAM:Y=B|
|00005290| 45 54 0d 1a 18 12 20 53 | 57 33 3d 2d 31 3a f2 45 |ET.... S|W3=-1:.E|
|000052a0| 71 65 63 6c 0d 1a 22 15 | 20 58 3d a4 44 45 47 28 |qecl..".| X=.DEG(|
|000052b0| 50 2f 31 35 29 3a 59 3d | 51 0d 1a 2c 0b 20 f2 52 |P/15):Y=|Q..,. .R|
|000052c0| 69 73 65 74 0d 1a 36 06 | 20 e1 0d 1a 40 06 20 3a |iset..6.| ...@. :|
|000052d0| 0d 1a 4a 11 20 dd f2 54 | 69 6d 65 41 64 6a 75 73 |..J. ..T|imeAdjus|
|000052e0| 74 0d 1a 54 16 20 e7 20 | 54 52 3c 30 20 8c 20 54 |t..T. . |TR<0 . T|
|000052f0| 52 3d 54 52 2b 32 34 0d | 1a 5e 17 20 e7 20 54 52 |R=TR+24.|.^. . TR|
|00005300| 3e 32 34 20 8c 20 54 52 | 3d 54 52 2d 32 34 0d 1a |>24 . TR|=TR-24..|
|00005310| 68 16 20 e7 20 54 53 3c | 30 20 8c 20 54 53 3d 54 |h. . TS<|0 . TS=T|
|00005320| 53 2b 32 34 0d 1a 72 17 | 20 e7 20 54 53 3e 32 34 |S+24..r.| . TS>24|
|00005330| 20 8c 20 54 53 3d 54 53 | 2d 32 34 0d 1a 7c 06 20 | . TS=TS|-24..|. |
|00005340| e1 0d 1a 86 06 20 3a 0d | 1a 90 0d 20 dd f2 4d 6f |..... :.|... ..Mo|
|00005350| 6f 6e 6e 66 0d 1a 9a 17 | 20 46 4c 41 47 28 29 3d |onnf....| FLAG()=|
|00005360| 30 3a 46 4c 41 47 28 30 | 29 3d 31 0d 1a a4 28 20 |0:FLAG(0|)=1...( |
|00005370| 44 59 3d bb 28 44 59 41 | 4c 24 29 3a 4d 4e 3d bb |DY=.(DYA|L$):MN=.|
|00005380| 28 4d 4e 41 4c 24 29 3a | 59 52 3d bb 28 59 52 41 |(MNAL$):|YR=.(YRA|
|00005390| 4c 24 29 0d 1a ae 19 20 | 44 59 30 3d 44 59 3a 4d |L$).... |DY0=DY:M|
|000053a0| 4e 30 3d 4d 4e 3a 59 52 | 30 3d 59 52 0d 1a b8 20 |N0=MN:YR|0=YR... |
|000053b0| 20 4d 4e 3d 31 3a 44 59 | 3d 30 3a 46 4c 41 47 28 | MN=1:DY|=0:FLAG(|
|000053c0| 31 29 3d 30 3a f2 4a 75 | 6c 64 61 79 0d 1a c2 1b |1)=0:.Ju|lday....|
|000053d0| 20 44 4a 44 30 3d 44 4a | 44 3a 4d 4e 3d 4d 4e 30 | DJD0=DJ|D:MN=MN0|
|000053e0| 3a 44 59 3d 44 59 30 0d | 1a cc 16 20 46 4c 41 47 |:DY=DY0.|... FLAG|
|000053f0| 28 31 29 3d 30 3a f2 4a | 75 6c 64 61 79 0d 1a d6 |(1)=0:.J|ulday...|
|00005400| 2a 20 4b 3d 28 59 52 30 | 2d 31 39 30 30 2b 28 28 |* K=(YR0|-1900+((|
|00005410| 44 4a 44 2d 44 4a 44 30 | 29 2f 33 36 35 29 29 2a |DJD-DJD0|)/365))*|
|00005420| 31 32 2e 33 36 38 35 0d | 1a e0 1f 20 4b 3d a4 4c |12.3685.|... K=.L|
|00005430| 49 46 28 4b 2b 30 2e 35 | 29 3a 54 4e 3d 4b 2f 31 |IF(K+0.5|):TN=K/1|
|00005440| 32 33 36 2e 38 35 0d 1a | ea 25 20 54 46 3d 28 4b |236.85..|.% TF=(K|
|00005450| 2b 30 2e 35 29 2f 31 32 | 33 36 2e 38 35 3a 54 3d |+0.5)/12|36.85:T=|
|00005460| 54 4e 3a f2 4c 6f 63 61 | 6c 6e 66 0d 1a f4 17 20 |TN:.Loca|lnf.... |
|00005470| 4a 44 30 4e 3d 41 3a 4a | 44 31 4e 3d 42 3a 4e 46 |JD0N=A:J|D1N=B:NF|
|00005480| 3d 46 0d 1a fe 1a 20 54 | 3d 54 46 3a 4b 3d 4b 2b |=F.... T|=TF:K=K+|
|00005490| 30 2e 35 3a f2 4c 6f 63 | 61 6c 6e 66 0d 1b 08 17 |0.5:.Loc|alnf....|
|000054a0| 20 4a 44 30 46 3d 41 3a | 4a 44 31 46 3d 42 3a 46 | JD0F=A:|JD1F=B:F|
|000054b0| 46 3d 46 0d 1b 12 06 20 | e1 0d 1b 1c 06 20 3a 0d |F=F.... |..... :.|
|000054c0| 1b 26 0e 20 dd f2 4c 6f | 63 61 6c 6e 66 0d 1b 30 |.&. ..Lo|calnf..0|
|000054d0| 15 20 54 32 3d 54 2a 54 | 3a 41 3d 32 39 2e 35 33 |. T2=T*T|:A=29.53|
|000054e0| 2a 4b 0d 1b 3a 29 20 43 | 3d a4 52 41 44 28 31 36 |*K..:) C|=.RAD(16|
|000054f0| 36 2e 35 36 2b 28 31 33 | 32 2e 38 37 2d 39 2e 31 |6.56+(13|2.87-9.1|
|00005500| 37 33 45 2d 33 2a 54 29 | 2a 54 29 0d 1b 44 40 20 |73E-3*T)|*T)..D@ |
|00005510| 42 3d 35 2e 38 38 36 38 | 45 2d 34 2a 4b 2b 28 31 |B=5.8868|E-4*K+(1|
|00005520| 2e 31 37 38 45 2d 34 2d | 31 2e 35 35 45 2d 37 2a |.178E-4-|1.55E-7*|
|00005530| 54 29 2a 54 32 2b 33 2e | 33 45 2d 34 2a b5 28 43 |T)*T2+3.|3E-4*.(C|
|00005540| 29 2b 37 2e 35 39 33 33 | 45 2d 31 0d 1b 4e 40 20 |)+7.5933|E-1..N@ |
|00005550| 4d 53 3d 33 35 39 2e 32 | 32 34 32 2b 33 36 30 2a |MS=359.2|242+360*|
|00005560| a4 55 4e 57 28 4b 2f 31 | 2e 32 33 36 38 38 36 45 |.UNW(K/1|.236886E|
|00005570| 31 2c 31 29 2d 28 33 2e | 33 33 45 2d 35 2b 33 2e |1,1)-(3.|33E-5+3.|
|00005580| 34 37 45 2d 36 2a 54 29 | 2a 54 32 0d 1b 58 45 20 |47E-6*T)|*T2..XE |
|00005590| 4d 4d 3d 33 30 36 2e 30 | 32 35 33 2b 33 36 30 2a |MM=306.0|253+360*|
|000055a0| a4 55 4e 57 28 4b 2f 39 | 2e 33 33 30 38 35 31 45 |.UNW(K/9|.330851E|
|000055b0| 2d 31 2c 31 29 2b 28 31 | 2e 30 37 33 30 36 45 2d |-1,1)+(1|.07306E-|
|000055c0| 32 2b 31 2e 32 33 36 45 | 2d 35 2a 54 29 2a 54 32 |2+1.236E|-5*T)*T2|
|000055d0| 0d 1b 62 41 20 46 3d 32 | 31 2e 32 39 36 34 2b 33 |..bA F=2|1.2964+3|
|000055e0| 36 30 2a a4 55 4e 57 28 | 4b 2f 39 2e 32 31 34 39 |60*.UNW(|K/9.2149|
|000055f0| 32 36 45 2d 31 2c 31 29 | 2d 28 31 2e 36 35 32 38 |26E-1,1)|-(1.6528|
|00005600| 45 2d 33 2b 32 2e 33 39 | 45 2d 36 2a 54 29 2a 54 |E-3+2.39|E-6*T)*T|
|00005610| 32 0d 1b 6c 24 20 4d 53 | 3d a4 55 4e 57 28 4d 53 |2..l$ MS|=.UNW(MS|
|00005620| 2c 33 36 30 29 3a 4d 4d | 3d a4 55 4e 57 28 4d 4d |,360):MM|=.UNW(MM|
|00005630| 2c 33 36 30 29 0d 1b 76 | 1e 20 46 3d a4 55 4e 57 |,360)..v|. F=.UNW|
|00005640| 28 46 2c 33 36 30 29 3a | 4d 53 3d a4 52 41 44 28 |(F,360):|MS=.RAD(|
|00005650| 4d 53 29 0d 1b 80 1a 20 | 4d 4d 3d a4 52 41 44 28 |MS).... |MM=.RAD(|
|00005660| 4d 4d 29 3a 46 3d a4 52 | 41 44 28 46 29 0d 1b 8a |MM):F=.R|AD(F)...|
|00005670| ca 20 44 44 4a 44 3d 28 | 31 2e 37 33 34 45 2d 31 |. DDJD=(|1.734E-1|
|00005680| 2d 33 2e 39 33 45 2d 34 | 2a 54 29 2a b5 28 4d 53 |-3.93E-4|*T)*.(MS|
|00005690| 29 2b 32 2e 31 45 2d 33 | 2a b5 28 32 2a 4d 53 29 |)+2.1E-3|*.(2*MS)|
|000056a0| 2d 34 2e 30 36 38 45 2d | 31 2a b5 28 4d 4d 29 2b |-4.068E-|1*.(MM)+|
|000056b0| 31 2e 36 31 45 2d 32 2a | b5 28 32 2a 4d 4d 29 2d |1.61E-2*|.(2*MM)-|
|000056c0| 34 45 2d 34 2a b5 28 33 | 2a 4d 4d 29 2b 31 2e 30 |4E-4*.(3|*MM)+1.0|
|000056d0| 34 45 2d 32 2a b5 28 32 | 2a 46 29 2d 35 2e 31 45 |4E-2*.(2|*F)-5.1E|
|000056e0| 2d 33 2a b5 28 4d 53 2b | 4d 4d 29 2d 37 2e 34 45 |-3*.(MS+|MM)-7.4E|
|000056f0| 2d 33 2a b5 28 4d 53 2d | 4d 4d 29 2b 34 45 2d 34 |-3*.(MS-|MM)+4E-4|
|00005700| 2a b5 28 32 2a 46 2b 4d | 53 29 2d 34 45 2d 34 2a |*.(2*F+M|S)-4E-4*|
|00005710| b5 28 32 2a 46 2d 4d 53 | 29 2d 36 45 2d 34 2a b5 |.(2*F-MS|)-6E-4*.|
|00005720| 28 32 2a 46 2b 4d 4d 29 | 2b 31 45 2d 33 2a b5 28 |(2*F+MM)|+1E-3*.(|
|00005730| 32 2a 46 2d 4d 4d 29 0d | 1b 94 1e 20 44 44 4a 44 |2*F-MM).|... DDJD|
|00005740| 3d 44 44 4a 44 2b 35 45 | 2d 34 2a b5 28 4d 53 2b |=DDJD+5E|-4*.(MS+|
|00005750| 32 2a 4d 4d 29 0d 1b 9e | 24 20 41 31 3d a8 28 41 |2*MM)...|$ A1=.(A|
|00005760| 29 3a 42 3d 42 2b 44 44 | 4a 44 2b 28 41 2d 41 31 |):B=B+DD|JD+(A-A1|
|00005770| 29 3a 42 31 3d a8 28 42 | 29 0d 1b a8 13 20 41 3d |):B1=.(B|).... A=|
|00005780| 41 31 2b 42 31 3a 42 3d | 42 2d 42 31 0d 1b b2 06 |A1+B1:B=|B-B1....|
|00005790| 20 e1 0d 1b bc 06 20 3a | 0d 1b c6 0f 20 dd f2 61 | ..... :|.... ..a|
|000057a0| 73 73 65 6d 62 6c 65 0d | 1b d0 0d 20 de 20 63 25 |ssemble.|... . c%|
|000057b0| 20 35 30 30 0d 1b da 21 | 20 70 6f 69 6e 74 65 72 | 500...!| pointer|
|000057c0| 3d 30 3a 6c 65 66 74 3d | 31 3a 72 69 67 68 74 3d |=0:left=|1:right=|
|000057d0| 32 3a 69 3d 33 0d 1b e4 | 23 20 6c 61 73 74 3d 34 |2:i=3...|# last=4|
|000057e0| 3a 74 65 6d 70 31 3d 35 | 3a 74 65 6d 70 32 3d 36 |:temp1=5|:temp2=6|
|000057f0| 3a 74 65 6d 70 33 3d 37 | 0d 1b ee 18 20 73 70 3d |:temp3=7|.... sp=|
|00005800| 31 33 3a 6c 69 6e 6b 3d | 31 34 3a 70 63 3d 31 35 |13:link=|14:pc=15|
|00005810| 0d 1b f8 15 20 e3 20 70 | 61 73 73 25 3d 30 20 b8 |.... . p|ass%=0 .|
|00005820| 20 32 20 88 32 0d 1c 02 | 0a 20 50 25 3d 63 25 0d | 2 .2...|. P%=c%.|
|00005830| 1c 0c 0f 20 5b 4f 50 54 | 20 70 61 73 73 25 0d 1c |... [OPT| pass%..|
|00005840| 16 0b 20 2e 71 73 6f 72 | 74 0d 1c 20 27 20 53 54 |.. .qsor|t.. ' ST|
|00005850| 4d 46 44 20 28 73 70 29 | 21 2c 7b 6c 65 66 74 2c |MFD (sp)|!,{left,|
|00005860| 72 69 67 68 74 2c 6c 61 | 73 74 2c 6c 69 6e 6b 7d |right,la|st,link}|
|00005870| 0d 1c 2a 13 20 43 4d 50 | 20 6c 65 66 74 2c 72 69 |..*. CMP| left,ri|
|00005880| 67 68 74 0d 1c 34 27 20 | 4c 44 4d 47 45 46 44 20 |ght..4' |LDMGEFD |
|00005890| 28 73 70 29 21 2c 7b 6c | 65 66 74 2c 72 69 67 68 |(sp)!,{l|eft,righ|
|000058a0| 74 2c 6c 61 73 74 2c 70 | 63 7d 0d 1c 3e 24 20 4c |t,last,p|c}..>$ L|
|000058b0| 44 52 20 74 65 6d 70 31 | 2c 5b 70 6f 69 6e 74 65 |DR temp1|,[pointe|
|000058c0| 72 2c 6c 65 66 74 2c 4c | 53 4c 20 23 33 5d 0d 1c |r,left,L|SL #3]..|
|000058d0| 48 19 20 41 44 44 20 74 | 65 6d 70 33 2c 6c 65 66 |H. ADD t|emp3,lef|
|000058e0| 74 2c 72 69 67 68 74 0d | 1c 52 1b 20 4d 4f 56 20 |t,right.|.R. MOV |
|000058f0| 74 65 6d 70 33 2c 74 65 | 6d 70 33 2c 4c 53 52 20 |temp3,te|mp3,LSR |
|00005900| 23 31 0d 1c 5c 25 20 4c | 44 52 20 74 65 6d 70 32 |#1..\% L|DR temp2|
|00005910| 2c 5b 70 6f 69 6e 74 65 | 72 2c 74 65 6d 70 33 2c |,[pointe|r,temp3,|
|00005920| 4c 53 4c 20 23 33 5d 0d | 1c 66 24 20 53 54 52 20 |LSL #3].|.f$ STR |
|00005930| 74 65 6d 70 32 2c 5b 70 | 6f 69 6e 74 65 72 2c 6c |temp2,[p|ointer,l|
|00005940| 65 66 74 2c 4c 53 4c 20 | 23 33 5d 0d 1c 70 25 20 |eft,LSL |#3]..p% |
|00005950| 53 54 52 20 74 65 6d 70 | 31 2c 5b 70 6f 69 6e 74 |STR temp|1,[point|
|00005960| 65 72 2c 74 65 6d 70 33 | 2c 4c 53 4c 20 23 33 5d |er,temp3|,LSL #3]|
|00005970| 0d 1c 7a 12 20 4d 4f 56 | 20 6c 61 73 74 2c 6c 65 |..z. MOV| last,le|
|00005980| 66 74 0d 1c 84 12 20 41 | 44 44 20 69 2c 6c 65 66 |ft.... A|DD i,lef|
|00005990| 74 2c 23 31 0d 1c 8e 1b | 20 53 55 42 20 70 6f 69 |t,#1....| SUB poi|
|000059a0| 6e 74 65 72 2c 70 6f 69 | 6e 74 65 72 2c 23 34 0d |nter,poi|nter,#4.|
|000059b0| 1c 98 24 20 4c 44 52 20 | 74 65 6d 70 31 2c 5b 70 |..$ LDR |temp1,[p|
|000059c0| 6f 69 6e 74 65 72 2c 6c | 65 66 74 2c 4c 53 4c 20 |ointer,l|eft,LSL |
|000059d0| 23 33 5d 0d 1c a2 19 20 | 41 44 44 20 74 65 6d 70 |#3].... |ADD temp|
|000059e0| 33 2c 6c 65 66 74 2c 72 | 69 67 68 74 0d 1c ac 1b |3,left,r|ight....|
|000059f0| 20 4d 4f 56 20 74 65 6d | 70 33 2c 74 65 6d 70 33 | MOV tem|p3,temp3|
|00005a00| 2c 4c 53 52 20 23 31 0d | 1c b6 25 20 4c 44 52 20 |,LSR #1.|..% LDR |
|00005a10| 74 65 6d 70 32 2c 5b 70 | 6f 69 6e 74 65 72 2c 74 |temp2,[p|ointer,t|
|00005a20| 65 6d 70 33 2c 4c 53 4c | 20 23 33 5d 0d 1c c0 24 |emp3,LSL| #3]...$|
|00005a30| 20 53 54 52 20 74 65 6d | 70 32 2c 5b 70 6f 69 6e | STR tem|p2,[poin|
|00005a40| 74 65 72 2c 6c 65 66 74 | 2c 4c 53 4c 20 23 33 5d |ter,left|,LSL #3]|
|00005a50| 0d 1c ca 25 20 53 54 52 | 20 74 65 6d 70 31 2c 5b |...% STR| temp1,[|
|00005a60| 70 6f 69 6e 74 65 72 2c | 74 65 6d 70 33 2c 4c 53 |pointer,|temp3,LS|
|00005a70| 4c 20 23 33 5d 0d 1c d4 | 12 20 4d 4f 56 20 6c 61 |L #3]...|. MOV la|
|00005a80| 73 74 2c 6c 65 66 74 0d | 1c de 1b 20 41 44 44 20 |st,left.|... ADD |
|00005a90| 70 6f 69 6e 74 65 72 2c | 70 6f 69 6e 74 65 72 2c |pointer,|pointer,|
|00005aa0| 23 34 0d 1c e8 0a 20 2e | 6c 6f 6f 70 0d 1c f2 21 |#4.... .|loop...!|
|00005ab0| 20 4c 44 52 20 74 65 6d | 70 31 2c 5b 70 6f 69 6e | LDR tem|p1,[poin|
|00005ac0| 74 65 72 2c 69 2c 4c 53 | 4c 20 23 33 5d 0d 1c fc |ter,i,LS|L #3]...|
|00005ad0| 24 20 4c 44 52 20 74 65 | 6d 70 32 2c 5b 70 6f 69 |$ LDR te|mp2,[poi|
|00005ae0| 6e 74 65 72 2c 6c 65 66 | 74 2c 4c 53 4c 20 23 33 |nter,lef|t,LSL #3|
|00005af0| 5d 0d 1d 06 14 20 43 4d | 50 20 74 65 6d 70 31 2c |].... CM|P temp1,|
|00005b00| 74 65 6d 70 32 0d 1d 10 | 17 20 42 47 45 20 67 72 |temp2...|. BGE gr|
|00005b10| 65 61 74 65 72 6f 72 65 | 71 75 61 6c 0d 1d 1a 15 |eaterore|qual....|
|00005b20| 20 41 44 44 20 6c 61 73 | 74 2c 6c 61 73 74 2c 23 | ADD las|t,last,#|
|00005b30| 31 0d 1d 24 24 20 4c 44 | 52 20 74 65 6d 70 31 2c |1..$$ LD|R temp1,|
|00005b40| 5b 70 6f 69 6e 74 65 72 | 2c 6c 61 73 74 2c 4c 53 |[pointer|,last,LS|
|00005b50| 4c 20 23 33 5d 0d 1d 2e | 21 20 4c 44 52 20 74 65 |L #3]...|! LDR te|
|00005b60| 6d 70 32 2c 5b 70 6f 69 | 6e 74 65 72 2c 69 2c 4c |mp2,[poi|nter,i,L|
|00005b70| 53 4c 20 23 33 5d 0d 1d | 38 24 20 53 54 52 20 74 |SL #3]..|8$ STR t|
|00005b80| 65 6d 70 32 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 61 |emp2,[po|inter,la|
|00005b90| 73 74 2c 4c 53 4c 20 23 | 33 5d 0d 1d 42 21 20 53 |st,LSL #|3]..B! S|
|00005ba0| 54 52 20 74 65 6d 70 31 | 2c 5b 70 6f 69 6e 74 65 |TR temp1|,[pointe|
|00005bb0| 72 2c 69 2c 4c 53 4c 20 | 23 33 5d 0d 1d 4c 1b 20 |r,i,LSL |#3]..L. |
|00005bc0| 53 55 42 20 70 6f 69 6e | 74 65 72 2c 70 6f 69 6e |SUB poin|ter,poin|
|00005bd0| 74 65 72 2c 23 34 0d 1d | 56 24 20 4c 44 52 20 74 |ter,#4..|V$ LDR t|
|00005be0| 65 6d 70 31 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 61 |emp1,[po|inter,la|
|00005bf0| 73 74 2c 4c 53 4c 20 23 | 33 5d 0d 1d 60 21 20 4c |st,LSL #|3]..`! L|
|00005c00| 44 52 20 74 65 6d 70 32 | 2c 5b 70 6f 69 6e 74 65 |DR temp2|,[pointe|
|00005c10| 72 2c 69 2c 4c 53 4c 20 | 23 33 5d 0d 1d 6a 24 20 |r,i,LSL |#3]..j$ |
|00005c20| 53 54 52 20 74 65 6d 70 | 32 2c 5b 70 6f 69 6e 74 |STR temp|2,[point|
|00005c30| 65 72 2c 6c 61 73 74 2c | 4c 53 4c 20 23 33 5d 0d |er,last,|LSL #3].|
|00005c40| 1d 74 21 20 53 54 52 20 | 74 65 6d 70 31 2c 5b 70 |.t! STR |temp1,[p|
|00005c50| 6f 69 6e 74 65 72 2c 69 | 2c 4c 53 4c 20 23 33 5d |ointer,i|,LSL #3]|
|00005c60| 0d 1d 7e 1b 20 41 44 44 | 20 70 6f 69 6e 74 65 72 |..~. ADD| pointer|
|00005c70| 2c 70 6f 69 6e 74 65 72 | 2c 23 34 0d 1d 88 14 20 |,pointer|,#4.... |
|00005c80| 2e 67 72 65 61 74 65 72 | 6f 72 65 71 75 61 6c 0d |.greater|orequal.|
|00005c90| 1d 92 0f 20 41 44 44 20 | 69 2c 69 2c 23 31 0d 1d |... ADD |i,i,#1..|
|00005ca0| 9c 10 20 43 4d 50 20 69 | 2c 72 69 67 68 74 0d 1d |.. CMP i|,right..|
|00005cb0| a6 0d 20 42 4c 45 20 6c | 6f 6f 70 0d 1d b0 24 20 |.. BLE l|oop...$ |
|00005cc0| 4c 44 52 20 74 65 6d 70 | 31 2c 5b 70 6f 69 6e 74 |LDR temp|1,[point|
|00005cd0| 65 72 2c 6c 65 66 74 2c | 4c 53 4c 20 23 33 5d 0d |er,left,|LSL #3].|
|00005ce0| 1d ba 24 20 4c 44 52 20 | 74 65 6d 70 32 2c 5b 70 |..$ LDR |temp2,[p|
|00005cf0| 6f 69 6e 74 65 72 2c 6c | 61 73 74 2c 4c 53 4c 20 |ointer,l|ast,LSL |
|00005d00| 23 33 5d 0d 1d c4 24 20 | 53 54 52 20 74 65 6d 70 |#3]...$ |STR temp|
|00005d10| 32 2c 5b 70 6f 69 6e 74 | 65 72 2c 6c 65 66 74 2c |2,[point|er,left,|
|00005d20| 4c 53 4c 20 23 33 5d 0d | 1d ce 24 20 53 54 52 20 |LSL #3].|..$ STR |
|00005d30| 74 65 6d 70 31 2c 5b 70 | 6f 69 6e 74 65 72 2c 6c |temp1,[p|ointer,l|
|00005d40| 61 73 74 2c 4c 53 4c 20 | 23 33 5d 0d 1d d8 1b 20 |ast,LSL |#3].... |
|00005d50| 53 55 42 20 70 6f 69 6e | 74 65 72 2c 70 6f 69 6e |SUB poin|ter,poin|
|00005d60| 74 65 72 2c 23 34 0d 1d | e2 24 20 4c 44 52 20 74 |ter,#4..|.$ LDR t|
|00005d70| 65 6d 70 31 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 65 |emp1,[po|inter,le|
|00005d80| 66 74 2c 4c 53 4c 20 23 | 33 5d 0d 1d ec 24 20 4c |ft,LSL #|3]...$ L|
|00005d90| 44 52 20 74 65 6d 70 32 | 2c 5b 70 6f 69 6e 74 65 |DR temp2|,[pointe|
|00005da0| 72 2c 6c 61 73 74 2c 4c | 53 4c 20 23 33 5d 0d 1d |r,last,L|SL #3]..|
|00005db0| f6 24 20 53 54 52 20 74 | 65 6d 70 32 2c 5b 70 6f |.$ STR t|emp2,[po|
|00005dc0| 69 6e 74 65 72 2c 6c 65 | 66 74 2c 4c 53 4c 20 23 |inter,le|ft,LSL #|
|00005dd0| 33 5d 0d 1e 00 24 20 53 | 54 52 20 74 65 6d 70 31 |3]...$ S|TR temp1|
|00005de0| 2c 5b 70 6f 69 6e 74 65 | 72 2c 6c 61 73 74 2c 4c |,[pointe|r,last,L|
|00005df0| 53 4c 20 23 33 5d 0d 1e | 0a 1b 20 41 44 44 20 70 |SL #3]..|.. ADD p|
|00005e00| 6f 69 6e 74 65 72 2c 70 | 6f 69 6e 74 65 72 2c 23 |ointer,p|ointer,#|
|00005e10| 34 0d 1e 14 18 20 53 54 | 4d 46 44 20 28 73 70 29 |4.... ST|MFD (sp)|
|00005e20| 21 2c 7b 72 69 67 68 74 | 7d 0d 1e 1e 13 20 53 55 |!,{right|}.... SU|
|00005e30| 42 20 52 32 2c 6c 61 73 | 74 2c 23 31 0d 1e 28 0d |B R2,las|t,#1..(.|
|00005e40| 20 42 4c 20 71 73 6f 72 | 74 0d 1e 32 18 20 4c 44 | BL qsor|t..2. LD|
|00005e50| 4d 46 44 20 28 73 70 29 | 21 2c 7b 72 69 67 68 74 |MFD (sp)|!,{right|
|00005e60| 7d 0d 1e 3c 13 20 41 44 | 44 20 72 31 2c 6c 61 73 |}..<. AD|D r1,las|
|00005e70| 74 2c 23 31 0d 1e 46 0d | 20 42 4c 20 71 73 6f 72 |t,#1..F.| BL qsor|
|00005e80| 74 0d 1e 50 25 20 4c 44 | 4d 46 44 20 28 73 70 29 |t..P% LD|MFD (sp)|
|00005e90| 21 2c 7b 6c 65 66 74 2c | 72 69 67 68 74 2c 6c 61 |!,{left,|right,la|
|00005ea0| 73 74 2c 70 63 7d 0d 1e | 5a 06 20 5d 0d 1e 64 0c |st,pc}..|Z. ]..d.|
|00005eb0| 20 ed 20 70 61 73 73 25 | 0d 1e 6e 06 20 e1 0d 1e | . pass%|..n. ...|
|00005ec0| 78 06 20 3a 0d 1e 82 22 | 20 dc 22 41 4d 53 54 45 |x. :..."| ."AMSTE|
|00005ed0| 52 44 41 4d 22 2c 34 2c | 35 34 2c 30 2c 35 32 2c |RDAM",4,|54,0,52,|
|00005ee0| 32 31 2c 30 2c 31 0d 1e | 8c 25 20 dc 22 41 4e 43 |21,0,1..|.% ."ANC|
|00005ef0| 48 4f 52 41 47 45 22 2c | 2d 31 35 30 2c 30 2c 30 |HORAGE",|-150,0,0|
|00005f00| 2c 36 31 2c 31 30 2c 30 | 2c 2d 39 0d 1e 96 1f 20 |,61,10,0|,-9.... |
|00005f10| dc 22 41 54 48 45 4e 53 | 22 2c 32 33 2c 34 34 2c |."ATHENS|",23,44,|
|00005f20| 30 2c 33 38 2c 30 2c 30 | 2c 32 0d 1e a0 23 20 dc |0,38,0,0|,2...# .|
|00005f30| 22 41 54 4c 41 4e 54 41 | 22 2c 2d 38 34 2c 32 33 |"ATLANTA|",-84,23|
|00005f40| 2c 30 2c 33 33 2c 34 35 | 2c 30 2c 2d 35 0d 1e aa |,0,33,45|,0,-5...|
|00005f50| 25 20 dc 22 41 55 43 4b | 4c 41 4e 44 22 2c 31 37 |% ."AUCK|LAND",17|
|00005f60| 34 2c 34 37 2c 30 2c 2d | 33 36 2c 35 35 2c 30 2c |4,47,0,-|36,55,0,|
|00005f70| 31 32 0d 1e b4 22 20 dc | 22 42 41 4e 47 4b 4f 4b |12..." .|"BANGKOK|
|00005f80| 22 2c 31 30 30 2c 33 30 | 2c 30 2c 31 33 2c 34 34 |",100,30|,0,13,44|
|00005f90| 2c 30 2c 37 0d 1e be 20 | 20 dc 22 42 45 49 52 55 |,0,7... | ."BEIRU|
|00005fa0| 54 22 2c 33 35 2c 33 30 | 2c 30 2c 33 33 2c 35 32 |T",35,30|,0,33,52|
|00005fb0| 2c 30 2c 32 0d 1e c8 20 | 20 dc 22 42 45 52 4c 49 |,0,2... | ."BERLI|
|00005fc0| 4e 22 2c 31 33 2c 32 35 | 2c 30 2c 35 32 2c 33 32 |N",13,25|,0,52,32|
|00005fd0| 2c 30 2c 31 0d 1e d2 22 | 20 dc 22 42 4f 4d 42 41 |,0,1..."| ."BOMBA|
|00005fe0| 59 22 2c 37 32 2c 35 31 | 2c 30 2c 31 38 2c 35 36 |Y",72,51|,0,18,56|
|00005ff0| 2c 30 2c 35 2e 35 0d 1e | dc 1c 20 dc 22 42 4f 4e |,0,5.5..|.. ."BON|
|00006000| 4e 22 2c 37 2c 36 2c 30 | 2c 35 30 2c 34 34 2c 30 |N",7,6,0|,50,44,0|
|00006010| 2c 31 0d 1e e6 21 20 dc | 22 42 4f 53 54 4f 4e 22 |,1...! .|"BOSTON"|
|00006020| 2c 2d 37 31 2c 35 2c 30 | 2c 34 32 2c 32 30 2c 30 |,-71,5,0|,42,20,0|
|00006030| 2c 2d 35 0d 1e f0 21 20 | dc 22 42 52 55 53 53 45 |,-5...! |."BRUSSE|
|00006040| 4c 53 22 2c 34 2c 32 31 | 2c 30 2c 35 30 2c 35 30 |LS",4,21|,0,50,50|
|00006050| 2c 30 2c 31 0d 1e fa 22 | 20 dc 22 42 55 43 48 41 |,0,1..."| ."BUCHA|
|00006060| 52 45 53 54 22 2c 32 36 | 2c 37 2c 30 2c 34 34 2c |REST",26|,7,0,44,|
|00006070| 32 35 2c 30 2c 32 0d 1f | 04 29 20 dc 22 42 55 45 |25,0,2..|.) ."BUE|
|00006080| 4e 4f 53 20 41 49 52 45 | 53 22 2c 2d 35 38 2c 33 |NOS AIRE|S",-58,3|
|00006090| 30 2c 30 2c 2d 33 34 2c | 34 30 2c 30 2c 2d 33 0d |0,0,-34,|40,0,-3.|
|000060a0| 1f 0e 1e 20 dc 22 43 41 | 49 52 4f 22 2c 33 31 2c |... ."CA|IRO",31,|
|000060b0| 31 35 2c 30 2c 33 30 2c | 33 2c 30 2c 32 0d 1f 18 |15,0,30,|3,0,2...|
|000060c0| 24 20 dc 22 43 41 4c 43 | 55 54 54 41 22 2c 38 38 |$ ."CALC|UTTA",88|
|000060d0| 2c 32 31 2c 30 2c 32 32 | 2c 33 35 2c 30 2c 35 2e |,21,0,22|,35,0,5.|
|000060e0| 35 0d 1f 22 23 20 dc 22 | 43 41 50 45 54 4f 57 4e |5.."# ."|CAPETOWN|
|000060f0| 22 2c 31 38 2c 32 38 2c | 30 2c 2d 33 33 2c 35 36 |",18,28,|0,-33,56|
|00006100| 2c 30 2c 32 0d 1f 2c 23 | 20 dc 22 43 41 52 41 43 |,0,2..,#| ."CARAC|
|00006110| 41 53 22 2c 2d 36 36 2c | 35 36 2c 30 2c 31 30 2c |AS",-66,|56,0,10,|
|00006120| 33 35 2c 30 2c 2d 34 0d | 1f 36 21 20 dc 22 43 41 |35,0,-4.|.6! ."CA|
|00006130| 54 41 4e 49 41 22 2c 31 | 35 2c 30 36 2c 30 2c 33 |TANIA",1|5,06,0,3|
|00006140| 37 2c 31 33 2c 30 2c 31 | 0d 1f 40 24 20 dc 22 43 |7,13,0,1|..@$ ."C|
|00006150| 48 49 41 4e 47 2d 4d 41 | 49 22 2c 39 38 2c 35 39 |HIANG-MA|I",98,59|
|00006160| 2c 30 2c 31 38 2c 34 38 | 2c 30 2c 37 0d 1f 4a 23 |,0,18,48|,0,7..J#|
|00006170| 20 dc 22 43 48 49 43 41 | 47 4f 22 2c 2d 38 37 2c | ."CHICA|GO",-87,|
|00006180| 34 35 2c 30 2c 34 31 2c | 35 30 2c 30 2c 2d 36 0d |45,0,41,|50,0,-6.|
|00006190| 1f 54 24 20 dc 22 43 4f | 50 45 4e 48 41 47 45 4e |.T$ ."CO|PENHAGEN|
|000061a0| 22 2c 31 32 2c 33 34 2c | 30 2c 35 35 2c 34 33 2c |",12,34,|0,55,43,|
|000061b0| 30 2c 31 0d 1f 5e 22 20 | dc 22 44 41 4c 4c 41 53 |0,1..^" |."DALLAS|
|000061c0| 22 2c 2d 39 36 2c 34 38 | 2c 30 2c 33 32 2c 34 37 |",-96,48|,0,32,47|
|000061d0| 2c 30 2c 2d 36 0d 1f 68 | 1e 20 dc 22 44 41 56 41 |,0,-6..h|. ."DAVA|
|000061e0| 4f 22 2c 31 32 35 2c 33 | 38 2c 30 2c 37 2c 35 2c |O",125,3|8,0,7,5,|
|000061f0| 30 2c 38 0d 1f 72 21 20 | dc 22 44 45 4c 48 49 22 |0,8..r! |."DELHI"|
|00006200| 2c 37 37 2c 31 34 2c 30 | 2c 32 38 2c 34 30 2c 30 |,77,14,0|,28,40,0|
|00006210| 2c 35 2e 35 0d 1f 7c 22 | 20 dc 22 44 45 4e 56 45 |,5.5..|"| ."DENVE|
|00006220| 52 22 2c 2d 31 30 35 2c | 30 2c 30 2c 33 39 2c 34 |R",-105,|0,0,39,4|
|00006230| 35 2c 30 2c 2d 37 0d 1f | 86 22 20 dc 22 44 45 54 |5,0,-7..|." ."DET|
|00006240| 52 4f 49 54 22 2c 2d 38 | 33 2c 35 2c 30 2c 34 32 |ROIT",-8|3,5,0,42|
|00006250| 2c 32 33 2c 30 2c 2d 35 | 0d 1f 90 22 20 dc 22 44 |,23,0,-5|..." ."D|
|00006260| 4a 41 4b 41 52 54 41 22 | 2c 31 30 35 2c 34 35 2c |JAKARTA"|,105,45,|
|00006270| 30 2c 2d 36 2c 38 2c 30 | 2c 37 0d 1f 9a 20 20 dc |0,-6,8,0|,7... .|
|00006280| 22 44 55 4c 57 49 43 48 | 22 2c 30 2c 2d 35 2c 30 |"DULWICH|",0,-5,0|
|00006290| 2c 35 31 2c 32 37 2c 30 | 2c 30 0d 1f a4 21 20 dc |,51,27,0|,0...! .|
|000062a0| 22 46 49 52 45 4e 5a 45 | 22 2c 31 31 2c 31 35 2c |"FIRENZE|",11,15,|
|000062b0| 30 2c 34 33 2c 34 37 2c | 30 2c 31 0d 1f ae 22 20 |0,43,47,|0,1..." |
|000062c0| dc 22 46 52 41 4e 4b 46 | 55 52 54 22 2c 38 2c 34 |."FRANKF|URT",8,4|
|000062d0| 31 2c 30 2c 35 30 2c 30 | 36 2c 30 2c 31 0d 1f b8 |1,0,50,0|6,0,1...|
|000062e0| 1f 20 dc 22 47 45 4e 4f | 56 41 22 2c 38 2c 35 36 |. ."GENO|VA",8,56|
|000062f0| 2c 30 2c 34 34 2c 32 34 | 2c 30 2c 31 0d 1f c2 22 |,0,44,24|,0,1..."|
|00006300| 20 dc 22 47 49 42 52 41 | 4c 54 45 52 22 2c 2d 35 | ."GIBRA|LTER",-5|
|00006310| 2c 32 31 2c 30 2c 33 36 | 2c 39 2c 30 2c 31 0d 1f |,21,0,36|,9,0,1..|
|00006320| cc 24 20 dc 22 47 49 55 | 4c 49 41 4e 4f 56 41 22 |.$ ."GIU|LIANOVA"|
|00006330| 2c 31 33 2c 35 38 2c 30 | 2c 34 32 2c 34 35 2c 30 |,13,58,0|,42,45,0|
|00006340| 2c 31 0d 1f d6 20 20 dc | 22 48 45 4c 53 49 4e 4b |,1... .|"HELSINK|
|00006350| 49 22 2c 32 35 2c 30 2c | 30 2c 36 30 2c 38 2c 30 |I",25,0,|0,60,8,0|
|00006360| 2c 32 0d 1f e0 23 20 dc | 22 48 4f 4e 47 4b 4f 4e |,2...# .|"HONGKON|
|00006370| 47 22 2c 31 31 34 2c 31 | 35 2c 30 2c 32 32 2c 31 |G",114,1|5,0,22,1|
|00006380| 36 2c 30 2c 38 0d 1f ea | 26 20 dc 22 48 4f 4e 4f |6,0,8...|& ."HONO|
|00006390| 4c 55 4c 55 22 2c 2d 31 | 35 37 2c 35 30 2c 30 2c |LULU",-1|57,50,0,|
|000063a0| 32 31 2c 31 39 2c 30 2c | 2d 31 30 0d 1f f4 23 20 |21,19,0,|-10...# |
|000063b0| dc 22 48 4f 55 53 54 4f | 4e 22 2c 2d 39 35 2c 32 |."HOUSTO|N",-95,2|
|000063c0| 35 2c 30 2c 32 39 2c 34 | 35 2c 30 2c 2d 36 0d 1f |5,0,29,4|5,0,-6..|
|000063d0| fe 22 20 dc 22 49 53 54 | 41 4e 42 55 4c 22 2c 32 |." ."IST|ANBUL",2|
|000063e0| 38 2c 35 37 2c 30 2c 34 | 31 2c 30 32 2c 30 2c 32 |8,57,0,4|1,02,0,2|
|000063f0| 0d 20 08 23 20 dc 22 4a | 45 52 55 53 41 4c 45 4d |. .# ."J|ERUSALEM|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
